3.1.2 (d x)^m (a+b log(c x^n))^p.nb

(* Content-type: application/mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 7.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       145,          7]
NotebookDataLength[    187298,       3686]
NotebookOptionsPosition[    181123,       3534]
NotebookOutlinePosition[    182865,       3588]
CellTagsIndexPosition[    182822,       3585]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[Cell[TextData[{
  StyleBox["Rules for integrands of the form  ",
   FontFamily->"Arial"],
  Cell[BoxData[
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}]],
   CellDingbat->None,
   CellChangeTimes->{
    3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
     3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
     3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
     3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
     3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
     3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
     3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
     3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
     3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
     3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
     3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
     3.5193325694253187`*^9, {3.5193415004828687`*^9, 
     3.5193415113404875`*^9}, {3.5193513965602303`*^9, 
     3.519351397420232*^9}, {3.5194037839416766`*^9, 3.5194037847117205`*^9}, 
     3.52105258275843*^9, 3.5210531741726685`*^9, {3.521057461672199*^9, 
     3.5210574760242243`*^9}, {3.521059881564049*^9, 3.521059886088057*^9}, {
     3.5213902158895197`*^9, 3.521390217543123*^9}, {3.521390827878595*^9, 
     3.521390829376197*^9}, {3.5214688792561245`*^9, 3.521468879443325*^9}, {
     3.523320201951167*^9, 3.523320202247567*^9}, {3.5288596764894824`*^9, 
     3.5288596768094826`*^9}, {3.529196266260353*^9, 
     3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
     3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
     3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
     3.529285215443486*^9}, {3.5295115356999426`*^9, 
     3.5295115433443794`*^9}, {3.529521412127842*^9, 3.529521414647986*^9}, {
     3.529529429975619*^9, 3.529529432955224*^9}, 3.5340074894011116`*^9, 
     3.5415537711400824`*^9, {3.5415538454742126`*^9, 3.54155384951462*^9}, {
     3.5417297197063265`*^9, 3.5417297252443366`*^9}, {3.546297494083555*^9, 
     3.5462974982435613`*^9}, {3.5462989134855423`*^9, 
     3.5462989153655453`*^9}, 3.548544146508506*^9, 3.5488738855784535`*^9, {
     3.5505953688729563`*^9, 3.5505953726861744`*^9}, {3.550619508681926*^9, 
     3.5506195174954305`*^9}, {3.551326301250945*^9, 3.551326301841979*^9}, {
     3.552150760656293*^9, 3.552150761436294*^9}, 3.5521509768882723`*^9, {
     3.5521510341403728`*^9, 3.5521510486171985`*^9}, {3.5521511118909097`*^9,
      3.5521511159313164`*^9}, 3.55215165895267*^9, 3.552151705315952*^9, 
     3.553532182175474*^9, {3.553559669357978*^9, 3.553559705888029*^9}, {
     3.553560225618757*^9, 3.55356022752876*^9}, {3.5536175751912155`*^9, 
     3.5536175847212286`*^9}, 3.5860254133948617`*^9, 3.5861106634510365`*^9},
   FontWeight->"Bold"]
 }], "None"]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.4965234353062396`*^9, {3.5193214825316973`*^9, 3.5193214852617016`*^9}, {
   3.523316399894187*^9, 3.5233164032341914`*^9}, {3.523318350558202*^9, 
   3.5233183516382036`*^9}, {3.536542725780803*^9, 3.536542725780803*^9}, {
   3.5367764878952584`*^9, 3.5367764886452594`*^9}, {3.544322815209103*^9, 
   3.5443228192963104`*^9}, {3.5450662624913826`*^9, 3.545066292141424*^9}, {
   3.545066402271579*^9, 3.5450664054415827`*^9}, {3.5450834884295015`*^9, 
   3.5450834895895033`*^9}, {3.5454961263762493`*^9, 
   3.5454961321462574`*^9}, {3.5454963863166127`*^9, 
   3.5454964580867133`*^9}, {3.545497046127537*^9, 3.545497046127537*^9}, {
   3.5454971130676303`*^9, 3.545497136257663*^9}, 3.545610399977621*^9, {
   3.546040778592962*^9, 3.546040778592962*^9}, {3.5461052065706367`*^9, 
   3.5461052249474688`*^9}, {3.546191339879622*^9, 3.5461913430596266`*^9}, {
   3.5462141824067917`*^9, 3.5462142145768366`*^9}, {3.5462145455473003`*^9, 
   3.5462145601073203`*^9}, {3.5463149785974817`*^9, 
   3.5463149794195285`*^9}, {3.5488738437683954`*^9, 
   3.5488738699084315`*^9}, {3.5488890647645535`*^9, 3.548889080804576*^9}, {
   3.5505951583099127`*^9, 3.5505951620351257`*^9}, {3.5758457803910656`*^9, 
   3.5758457938510847`*^9}, {3.5758458780912023`*^9, 
   3.5758458797312045`*^9}, {3.5758460250714083`*^9, 3.575846028691413*^9}, {
   3.5758461031815176`*^9, 3.575846103681518*^9}, {3.5758463018517957`*^9, 
   3.5758463042917986`*^9}, {3.5758464155019546`*^9, 3.575846417191957*^9}, {
   3.5758465224621043`*^9, 3.5758465297321143`*^9}, {3.586110883301344*^9, 
   3.5861109115613837`*^9}, {3.586189963835286*^9, 3.586189963835286*^9}, {
   3.5861901083579884`*^9, 3.5861901105479918`*^9}, {3.6219786145214176`*^9, 
   3.6219786145214176`*^9}, {3.7164451309563828`*^9, 
   3.7164451309563828`*^9}, {3.716495843763009*^9, 3.716495843763009*^9}, {
   3.717096908709983*^9, 3.717096908709983*^9}, {3.717102695864036*^9, 
   3.717102695864036*^9}, {3.7461203919519053`*^9, 3.7461203919519053`*^9}},
 TextAlignment->Center,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["1:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], "x"], " ", 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, 3.550850564117722*^9, 
   3.55085086060068*^9, {3.5511408787654934`*^9, 3.5511409652134385`*^9}, {
   3.5511410229287395`*^9, 3.5511410229287395`*^9}, {3.551141425269752*^9, 
   3.5511414262078056`*^9}, 3.5705813877894106`*^9, {3.6218999397769117`*^9, 
   3.6218999422930555`*^9}, 3.6219787890043974`*^9, 3.7164165990485487`*^9, 
   3.716421987700762*^9, 3.716422185800092*^9, 3.7164222994325914`*^9, {
   3.7164227223747826`*^9, 3.716422724410899*^9}, {3.7164229455835495`*^9, 
   3.71642294577756*^9}, {3.7164432255844016`*^9, 3.716443227234496*^9}, 
   3.71644335038054*^9, {3.7164434030225506`*^9, 3.716443410307967*^9}, {
   3.7164443262553563`*^9, 3.7164443265533733`*^9}, 3.7164444494294014`*^9, {
   3.71650524576787*^9, 3.716505254981397*^9}, {3.7165055245478153`*^9, 
   3.716505524837832*^9}, {3.7184068133473473`*^9, 3.718406813624363*^9}, {
   3.7228037591036797`*^9, 3.722803759315692*^9}, 3.7461204235837145`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: CRC 491", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.495199830136465*^9, 
   3.495200499707402*^9, {3.495200628267582*^9, 3.495200628827583*^9}, 
   3.4952022999899225`*^9, {3.7184065611949253`*^9, 3.718406561664952*^9}, {
   3.718407376910581*^9, 3.71840737967974*^9}}],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, {
   3.7164202433349895`*^9, 3.71642025627973*^9}, {3.7165053348199635`*^9, 
   3.716505338578179*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{"F", "[", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], "]"}], "x"], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     RowBox[{"b", " ", "n"}]], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"F", "[", "x", "]"}], ",", "x", ",", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, {3.4951648090562844`*^9, 
   3.495164816591098*^9}, 3.4951998608665075`*^9, 3.4951999947566953`*^9, {
   3.5511408209821887`*^9, 3.5511408223792686`*^9}, {3.7164202833232765`*^9, 
   3.716420283324277*^9}, {3.716420431742766*^9, 3.716420431742766*^9}, {
   3.716443173263409*^9, 3.716443173263409*^9}, {3.716444006603073*^9, 
   3.716444006603073*^9}, {3.7164444078880253`*^9, 3.7164444078880253`*^9}, {
   3.7165053996156697`*^9, 3.7165053996166697`*^9}, {3.7173073888681545`*^9, 
   3.7173073888681545`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.49520041937729*^9, 3.495200429777304*^9}, {
   3.4952005880875263`*^9, 3.4952005951475353`*^9}, {3.4952010952482357`*^9, 
   3.4952010970482388`*^9}, {3.495259125616763*^9, 3.495259125616763*^9}, {
   3.621899945811257*^9, 3.621899945811257*^9}, 3.716422941945341*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], "x"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      RowBox[{"b", " ", "n"}]]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["x", "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.5705598844879603`*^9, 3.5705598906079693`*^9}, {
   3.6218987652867346`*^9, 3.6218988171897035`*^9}, {3.621898877151133*^9, 
   3.6218989022125664`*^9}, {3.71641658841094*^9, 3.71641658893897*^9}, 
   3.716417539660348*^9, {3.7164175776505213`*^9, 3.7164176175118012`*^9}, {
   3.716417719489634*^9, 3.716417726642043*^9}, {3.716420061775605*^9, 
   3.716420134034738*^9}, {3.716420189208894*^9, 3.7164201896279173`*^9}, {
   3.716420227586089*^9, 3.7164202282441263`*^9}, {3.7164216796781435`*^9, 
   3.716421698824239*^9}, {3.7164219936731033`*^9, 3.7164220172984543`*^9}, {
   3.7164417918133945`*^9, 3.7164417936525*^9}, {3.716442737914509*^9, 
   3.7164427536484084`*^9}, {3.716442789584464*^9, 3.7164427900774918`*^9}, {
   3.7164429999524965`*^9, 3.716443000696539*^9}, {3.716443412176074*^9, 
   3.716443412582097*^9}, {3.71644354987495*^9, 3.7164435749553843`*^9}, {
   3.7164436755521383`*^9, 3.7164436940371957`*^9}, {3.716443755556714*^9, 
   3.716443767532399*^9}, {3.716443844282789*^9, 3.716443851576206*^9}, 
   3.716444105100707*^9, {3.716505270898308*^9, 3.716505304467228*^9}, 
   3.7165053563141932`*^9, {3.7173073967617683`*^9, 3.7173074079071884`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "/", "x_"}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "2"}], "/", 
    RowBox[{"(", 
     RowBox[{"2", "*", "b", "*", "n"}], ")"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "n"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.495200523437435*^9, 
   3.495200639177597*^9, 3.495200753047757*^9, 3.4952010407881594`*^9, 
   3.4952013363585734`*^9, {3.4952570835699644`*^9, 3.495257087673199*^9}, {
   3.4952590667663965`*^9, 3.495259071698679*^9}, {3.495259155129451*^9, 
   3.4952591595397034`*^9}, {3.4952592284316435`*^9, 3.495259233363926*^9}, {
   3.5705608083492537`*^9, 3.570560819349269*^9}, {3.570560875679348*^9, 
   3.5705608813493557`*^9}, {3.6219001333179817`*^9, 3.62190014570369*^9}, {
   3.621900249252613*^9, 3.621900251408736*^9}, {3.6219002913290195`*^9, 
   3.6219002928911085`*^9}, {3.7164228363883038`*^9, 3.716422849596059*^9}, {
   3.7164229128336763`*^9, 3.7164229352129564`*^9}, 3.7164392531651926`*^9, 
   3.7164392890572453`*^9, {3.7164440694126663`*^9, 3.716444083264458*^9}, 
   3.716444247598858*^9, 3.716503487024276*^9, {3.716505434288653*^9, 
   3.7165054716237884`*^9}, {3.7165057743771048`*^9, 
   3.7165057750661445`*^9}, {3.717307425363619*^9, 3.717307436476839*^9}, {
   3.718406177373972*^9, 3.7184061908257413`*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}], "/", 
     "x_"}], ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{"b", "*", "n"}], ")"}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"x", "^", "p"}], ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"a", "+", 
       RowBox[{"b", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "n"}]}], "]"}]}]}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"a", ",", "b", ",", "c", ",", "n", ",", "p"}], "}"}], ",", 
     "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.495200523437435*^9, 
   3.495200639177597*^9, 3.495200753047757*^9, 3.4952010407881594`*^9, 
   3.4952013363585734`*^9, {3.4952570835699644`*^9, 3.495257087673199*^9}, {
   3.4952590667663965`*^9, 3.495259071698679*^9}, {3.495259155129451*^9, 
   3.4952591595397034`*^9}, {3.4952592284316435`*^9, 3.495259233363926*^9}, {
   3.5705608083492537`*^9, 3.570560819349269*^9}, {3.570560875679348*^9, 
   3.5705608813493557`*^9}, {3.6219001333179817`*^9, 3.62190014570369*^9}, {
   3.621900249252613*^9, 3.621900251408736*^9}, {3.6219002913290195`*^9, 
   3.6219002928911085`*^9}, {3.7164228363883038`*^9, 3.716422849596059*^9}, {
   3.7164229128336763`*^9, 3.7164229352129564`*^9}, 3.7164392531651926`*^9, 
   3.7164392890572453`*^9, {3.7164440694126663`*^9, 3.716444083264458*^9}, 
   3.716444247598858*^9, 3.716503487024276*^9, {3.716505434288653*^9, 
   3.7165054716237884`*^9}, {3.7165057743771048`*^9, 
   3.7165057750661445`*^9}, {3.717307425363619*^9, 3.717307436476839*^9}, 
   3.718406729984579*^9, 3.722804301733716*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["2.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
      RowBox[{"p", ">", "0"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, 3.551141312203285*^9, {
   3.551326415044454*^9, 3.551326416108515*^9}, {3.551823449731494*^9, 
   3.551823449931494*^9}, {3.55182610408771*^9, 3.55182610424771*^9}, {
   3.5521522981425934`*^9, 3.5521522984389935`*^9}, {3.5705813800794*^9, 
   3.570581382129403*^9}, 3.6219003893266244`*^9, 3.621978781628976*^9, {
   3.716416515904793*^9, 3.7164165276424637`*^9}, {3.716439416289522*^9, 
   3.716439431769408*^9}, {3.7171080671095877`*^9, 3.717108098358443*^9}, 
   3.7171933414017415`*^9, {3.717464500318048*^9, 3.717464500505059*^9}, {
   3.7184059393173556`*^9, 3.7184059452046924`*^9}, {3.719871353211261*^9, 
   3.719871360167659*^9}, 3.722803825956503*^9, {3.722804241674281*^9, 
   3.7228042560391026`*^9}, 3.746120425341816*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{
        RowBox[{
         RowBox[{"a", " ", 
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}]}], "-", 
         RowBox[{"b", " ", "n"}]}], "\[Equal]", "0"}]}]]]], 
      "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, {3.5508114161671886`*^9, 
   3.550811419328369*^9}, {3.5508116260871954`*^9, 3.5508116269802465`*^9}, {
   3.550811741020769*^9, 3.550811744393962*^9}, {3.5508130184278326`*^9, 
   3.5508130394230337`*^9}, {3.550850981139574*^9, 3.5508510096172028`*^9}, {
   3.5508511357854195`*^9, 3.5508511357854195`*^9}, 3.5513087127028403`*^9, {
   3.551326409634145*^9, 3.5513264112742386`*^9}, {3.5516384008854237`*^9, 
   3.551638414675848*^9}, {3.5516384656099377`*^9, 3.5516384656099377`*^9}, {
   3.5516386768187084`*^9, 3.5516386776455097`*^9}, {3.551638832084979*^9, 
   3.5516388370769873`*^9}, {3.5518228900107107`*^9, 
   3.5518228910507116`*^9}, {3.552152393661561*^9, 3.5521524595716767`*^9}, 
   3.570581445819492*^9, 3.570581528379607*^9, {3.5705816457497716`*^9, 
   3.5705816777698164`*^9}, 3.5705852096647615`*^9, {3.5706281140719943`*^9, 
   3.5706281140719943`*^9}, {3.6219005975255327`*^9, 3.6219005975255327`*^9}, 
   3.6219006651934032`*^9, 3.6219007246038013`*^9, 3.621900789113491*^9, {
   3.621901695187316*^9, 3.621901695187316*^9}, 3.6219787912085238`*^9, 
   3.716440258321684*^9, {3.7164402984419785`*^9, 3.7164403525650744`*^9}, {
   3.716440581188151*^9, 3.716440581188151*^9}, 3.7164444466792445`*^9, 
   3.716505759498254*^9, {3.7184061452551346`*^9, 3.7184061454651465`*^9}, {
   3.718406257203538*^9, 3.7184062619198074`*^9}, {3.7198709194914536`*^9, 
   3.719870921892591*^9}, {3.7198709807849593`*^9, 3.7198709933196764`*^9}, {
   3.719871361791752*^9, 3.719871363425845*^9}, 3.7228038343429832`*^9, 
   3.7461204259418497`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Note: Optional rule for special case returns a single term.\
\>", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.570583171621908*^9, 3.570583171621908*^9}, {3.570628115007996*^9, 
   3.570628115007996*^9}, {3.621900598573593*^9, 3.621900598573593*^9}, {
   3.6219016971784296`*^9, 3.6219016971784296`*^9}, {3.7164405588378725`*^9, 
   3.7164405888885913`*^9}, {3.718406324568391*^9, 3.7184063253304343`*^9}, {
   3.719871381374872*^9, 3.71987144410646*^9}, {3.719871626179874*^9, 
   3.7198716301591015`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[NotEqual]", 
   RowBox[{"-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.570583171621908*^9, 3.570583171621908*^9}, {3.570628115007996*^9, 
   3.570628115007996*^9}, {3.621900598573593*^9, 3.621900598573593*^9}, {
   3.6219016971784296`*^9, 3.6219016971784296`*^9}, {3.7164405588378725`*^9, 
   3.7164405888885913`*^9}, {3.718406324568391*^9, 3.7184063253304343`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
   RowBox[{"(", 
    RowBox[{"a", "+", 
     RowBox[{"b", " ", 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      RowBox[{"b", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"d", " ", "x"}], ")"}], 
        RowBox[{"m", "+", "1"}]], " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}], 
      RowBox[{"d", " ", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.4952019860094833`*^9, 3.4952019978094997`*^9}, 
   3.495202186849764*^9, {3.495202396160057*^9, 3.495202406320071*^9}, {
   3.5705817063098564`*^9, 3.570581733529895*^9}, 3.5705824428008876`*^9, {
   3.6219006666664877`*^9, 3.621900667499535*^9}, {3.621900726045884*^9, 
   3.6219007268139277`*^9}, {3.621900790794587*^9, 3.6219007918596478`*^9}, {
   3.62190172795319*^9, 3.621901766688405*^9}, {3.7164402599227753`*^9, 
   3.716440260954835*^9}, {3.716440299779055*^9, 3.716440300259083*^9}, {
   3.7164403792396*^9, 3.7164403837738595`*^9}, {3.7164404487235746`*^9, 
   3.7164404537778635`*^9}, {3.716440488460847*^9, 3.7164404892178907`*^9}, {
   3.7184062687791996`*^9, 3.718406283491041*^9}, 3.718406356133196*^9, {
   3.718406400296722*^9, 3.7184064301194277`*^9}, 3.7198710694220295`*^9, 
   3.719871311686886*^9, 3.719871572284791*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{"b", "*", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d", "*", "x"}], ")"}], "^", 
     RowBox[{"(", 
      RowBox[{"m", "+", "1"}], ")"}]}], "*", 
    RowBox[{
     RowBox[{"Log", "[", 
      RowBox[{"c", "*", 
       RowBox[{"x", "^", "n"}]}], "]"}], "/", 
     RowBox[{"(", 
      RowBox[{"d", "*", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"a", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], "-", 
       RowBox[{"b", "*", "n"}]}], ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.4952000136967216`*^9, 
   3.495201805939231*^9, 3.4952019420094213`*^9, 3.4952021430497026`*^9, {
   3.4952023111099377`*^9, 3.4952023425599823`*^9}, 3.5487331058541374`*^9, 
   3.5487332986431637`*^9, {3.570582474470932*^9, 3.570582500090968*^9}, 
   3.5705825663410606`*^9, {3.5705825984611053`*^9, 3.570582600751109*^9}, 
   3.570582642201167*^9, {3.570583176651915*^9, 3.5705831844119263`*^9}, 
   3.621901033751484*^9, 3.6219011254127264`*^9, 3.621901221045196*^9, 
   3.6219012532300367`*^9, {3.621901308373191*^9, 3.621901309109233*^9}, {
   3.621901699166543*^9, 3.6219017004946194`*^9}, 3.621901951186958*^9, {
   3.6219019892971373`*^9, 3.6219020309935226`*^9}, {3.705191858168479*^9, 
   3.705191864937866*^9}, {3.7051920227618933`*^9, 3.7051920263010955`*^9}, {
   3.7051923332776537`*^9, 3.7051923375738993`*^9}, {3.7164406288498774`*^9, 
   3.7164406579455414`*^9}, {3.716440703803164*^9, 3.7164407309817185`*^9}, 
   3.716440766905773*^9, {3.7184063456715975`*^9, 3.7184063492468023`*^9}, {
   3.718406440873043*^9, 3.718406444792267*^9}, {3.7184064885837717`*^9, 
   3.718406525830902*^9}, {3.719871475698267*^9, 3.719871498841591*^9}, {
   3.7198715887767344`*^9, 3.7198715989483166`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{
       RowBox[{"m", "\[NotEqual]", 
        RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
       RowBox[{"p", ">", "0"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, {3.5508114161671886`*^9, 
   3.550811419328369*^9}, {3.5508116260871954`*^9, 3.5508116269802465`*^9}, {
   3.550811741020769*^9, 3.550811744393962*^9}, {3.5508130184278326`*^9, 
   3.5508130394230337`*^9}, {3.550850981139574*^9, 3.5508510096172028`*^9}, {
   3.5508511357854195`*^9, 3.5508511357854195`*^9}, 3.5513087127028403`*^9, {
   3.551326409634145*^9, 3.5513264112742386`*^9}, {3.5516384008854237`*^9, 
   3.551638414675848*^9}, {3.5516384656099377`*^9, 3.5516384656099377`*^9}, {
   3.5516386768187084`*^9, 3.5516386776455097`*^9}, {3.551638832084979*^9, 
   3.5516388370769873`*^9}, {3.5518228900107107`*^9, 
   3.5518228910507116`*^9}, {3.552152393661561*^9, 3.5521524595716767`*^9}, 
   3.570581445819492*^9, 3.570581528379607*^9, {3.5705816457497716`*^9, 
   3.5705816777698164`*^9}, 3.5705852096647615`*^9, {3.5706281140719943`*^9, 
   3.5706281140719943`*^9}, {3.6219005975255327`*^9, 3.6219005975255327`*^9}, 
   3.6219006651934032`*^9, 3.6219007246038013`*^9, 3.621900789113491*^9, {
   3.621901695187316*^9, 3.621901695187316*^9}, 3.6219787912085238`*^9, 
   3.716440258321684*^9, {3.7164402984419785`*^9, 3.7164403525650744`*^9}, {
   3.716440581188151*^9, 3.716440581188151*^9}, 3.7164444466792445`*^9, 
   3.716505759498254*^9, 3.7184070872620144`*^9, {3.718407149459572*^9, 
   3.718407151582693*^9}, 3.7228042642015696`*^9, {3.7228043624811907`*^9, 
   3.7228043641122837`*^9}, 3.7461204264458785`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.721.1, CRC 496, A&S 4.1.51", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.495199830136465*^9, 
   3.495200499707402*^9, {3.495200628267582*^9, 3.495200628827583*^9}, 
   3.4952022999899225`*^9}],

Cell["Derivation: Integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, 
   3.4952005105874176`*^9}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], "\[Equal]", 
   FractionBox[
    RowBox[{"b", " ", "n", " ", "p", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
      RowBox[{"p", "-", "1"}]]}], "x"]}]]]
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.4952359429371166`*^9, 
   3.495235964997147*^9}, {3.5507724578719325`*^9, 3.5507724578719325`*^9}, {
   3.5512154412259674`*^9, 3.551215442011012*^9}, {3.5512154864775553`*^9, 
   3.5512154979722133`*^9}, {3.570557750364973*^9, 3.570557780445015*^9}, {
   3.5705579626852703`*^9, 3.5705579694452796`*^9}, {3.5705580447453847`*^9, 
   3.5705580454353857`*^9}, {3.570558228385642*^9, 3.5705582430356627`*^9}, {
   3.570627460633647*^9, 3.5706274958897085`*^9}, {3.6219005980785646`*^9, 
   3.6219005980785646`*^9}, {3.621900665712433*^9, 3.621900666152458*^9}, {
   3.621900725311842*^9, 3.621900725312842*^9}, {3.6219016768332653`*^9, 
   3.6219016768332653`*^9}, {3.7164402589087176`*^9, 
   3.7164402594367476`*^9}, {3.716440534789497*^9, 3.7164405505493984`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"p", ">", "0"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.570583171621908*^9, 3.570583171621908*^9}, {3.570628115007996*^9, 
   3.570628115007996*^9}, {3.621900598573593*^9, 3.621900598573593*^9}, {
   3.6219016971784296`*^9, 3.6219016971784296`*^9}, {3.7164405588378725`*^9, 
   3.7164405888885913`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", " ", "x"}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], 
       RowBox[{"d", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"b", " ", "n", " ", "p"}], 
    RowBox[{"m", "+", "1"}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
      RowBox[{"p", "-", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.4952019860094833`*^9, 3.4952019978094997`*^9}, 
   3.495202186849764*^9, {3.495202396160057*^9, 3.495202406320071*^9}, {
   3.5705817063098564`*^9, 3.570581733529895*^9}, 3.5705824428008876`*^9, {
   3.6219006666664877`*^9, 3.621900667499535*^9}, {3.621900726045884*^9, 
   3.6219007268139277`*^9}, {3.621900790794587*^9, 3.6219007918596478`*^9}, {
   3.62190172795319*^9, 3.621901766688405*^9}, {3.7164402599227753`*^9, 
   3.716440260954835*^9}, {3.716440299779055*^9, 3.716440300259083*^9}, {
   3.7164403792396*^9, 3.7164403837738595`*^9}, {3.7164404487235746`*^9, 
   3.7164404537778635`*^9}, {3.716440488460847*^9, 3.7164404892178907`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{"(", 
      RowBox[{"a_.", "+", 
       RowBox[{"b_.", "*", 
        RowBox[{"Log", "[", 
         RowBox[{"c_.", "*", 
          RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}]}], ",", "x_Symbol"}],
    "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", 
           RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"b", "*", "n", "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"d", "*", "x"}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"m", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}], "^", "2"}]}], ")"}]}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.4952000136967216`*^9, 
   3.495201805939231*^9, 3.4952019420094213`*^9, 3.4952021430497026`*^9, {
   3.4952023111099377`*^9, 3.4952023425599823`*^9}, 3.5487331058541374`*^9, 
   3.5487332986431637`*^9, {3.570582474470932*^9, 3.570582500090968*^9}, 
   3.5705825663410606`*^9, {3.5705825984611053`*^9, 3.570582600751109*^9}, 
   3.570582642201167*^9, {3.570583176651915*^9, 3.5705831844119263`*^9}, 
   3.621901033751484*^9, 3.6219011254127264`*^9, 3.621901221045196*^9, 
   3.6219012532300367`*^9, {3.621901308373191*^9, 3.621901309109233*^9}, {
   3.621901699166543*^9, 3.6219017004946194`*^9}, 3.621901951186958*^9, {
   3.6219019892971373`*^9, 3.6219020309935226`*^9}, {3.705191858168479*^9, 
   3.705191864937866*^9}, {3.7051920227618933`*^9, 3.7051920263010955`*^9}, {
   3.7051923332776537`*^9, 3.7051923375738993`*^9}, {3.7164406288498774`*^9, 
   3.7164406579455414`*^9}, {3.716440703803164*^9, 3.7164407309817185`*^9}, 
   3.716440766905773*^9, {3.7184063456715975`*^9, 3.7184063492468023`*^9}, {
   3.718406440873043*^9, 3.718406444792267*^9}, {3.7184064885837717`*^9, 
   3.718406525830902*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}], "/", 
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"(", 
         RowBox[{"m", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    RowBox[{"b", "*", "n", "*", 
     RowBox[{"p", "/", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "*", "x"}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Log", "[", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "-", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"GtQ", "[", 
     RowBox[{"p", ",", "0"}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.4952000136967216`*^9, 
   3.495201805939231*^9, 3.4952019420094213`*^9, 3.4952021430497026`*^9, {
   3.4952023111099377`*^9, 3.4952023425599823`*^9}, 3.5487331058541374`*^9, 
   3.5487332986431637`*^9, {3.570582474470932*^9, 3.570582500090968*^9}, 
   3.5705825663410606`*^9, {3.5705825984611053`*^9, 3.570582600751109*^9}, 
   3.570582642201167*^9, {3.570583176651915*^9, 3.5705831844119263`*^9}, 
   3.621901033751484*^9, 3.6219011254127264`*^9, 3.621901221045196*^9, 
   3.6219012532300367`*^9, {3.621901308373191*^9, 3.621901309109233*^9}, {
   3.621901699166543*^9, 3.6219017004946194`*^9}, 3.621901951186958*^9, {
   3.6219019892971373`*^9, 3.6219020309935226`*^9}, {3.705191858168479*^9, 
   3.705191864937866*^9}, {3.7051920227618933`*^9, 3.7051920263010955`*^9}, {
   3.7051923332776537`*^9, 3.7051923375738993`*^9}, {3.7164406288498774`*^9, 
   3.7164406579455414`*^9}, {3.716440703803164*^9, 3.7164407309817185`*^9}, 
   3.716440766905773*^9, 3.7184067334637785`*^9, 3.722804286481844*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["3:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{
      RowBox[{"m", "\[NotEqual]", 
       RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
      RowBox[{"p", "<", 
       RowBox[{"-", "1"}]}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, {3.5508114161671886`*^9, 
   3.550811419328369*^9}, {3.5508116260871954`*^9, 3.5508116269802465`*^9}, {
   3.550811741020769*^9, 3.550811744393962*^9}, {3.5508130184278326`*^9, 
   3.5508130394230337`*^9}, {3.550850981139574*^9, 3.5508510096172028`*^9}, {
   3.5508511357854195`*^9, 3.5508511357854195`*^9}, 3.5513087127028403`*^9, {
   3.551326409634145*^9, 3.5513264112742386`*^9}, {3.5516384008854237`*^9, 
   3.551638414675848*^9}, {3.5516384656099377`*^9, 3.5516384656099377`*^9}, {
   3.5516386768187084`*^9, 3.5516386776455097`*^9}, {3.551638832084979*^9, 
   3.5516388370769873`*^9}, {3.5518228900107107`*^9, 
   3.5518228910507116`*^9}, {3.552152393661561*^9, 3.5521524747661037`*^9}, {
   3.552152815657902*^9, 3.552152817717106*^9}, 3.570581449569497*^9, 
   3.570583142941868*^9, {3.570583211661964*^9, 3.5705832184819736`*^9}, 
   3.5705832533620224`*^9, 3.570585218074773*^9, {3.570628123338411*^9, 
   3.570628123338411*^9}, {3.6219006041329107`*^9, 3.6219006041329107`*^9}, 
   3.621900676585055*^9, 3.6219007280840006`*^9, 3.6219007999291096`*^9, {
   3.621906581079773*^9, 3.6219065810807724`*^9}, 3.621978796298815*^9, 
   3.7164402723534865`*^9, 3.7164403059054055`*^9, {3.716440823637018*^9, 
   3.716440857214939*^9}, {3.7164410973426733`*^9, 3.7164410975916877`*^9}, 
   3.7164444483283386`*^9, 3.7165057618143864`*^9, {3.718407089519143*^9, 
   3.7184070918942795`*^9}, {3.7184071529207697`*^9, 3.71840715309578*^9}, {
   3.7228043961681175`*^9, 3.7228043989272757`*^9}, 3.7461204269099054`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Reference: G&R 2.724.1, CRC 495", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.495199830136465*^9, 
   3.495200499707402*^9, {3.495200628267582*^9, 3.495200628827583*^9}, 
   3.4952022999899225`*^9, 3.4952024370101147`*^9}],

Cell["Derivation: Inverted integration by parts", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, 
   3.4952005105874176`*^9, 3.495202446820128*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{
   RowBox[{"m", "\[NotEqual]", 
    RowBox[{"-", "1"}]}], " ", "\[And]", " ", 
   RowBox[{"p", "<", 
    RowBox[{"-", "1"}]}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.570583225241983*^9, 
   3.570583225241983*^9}, {3.570628124196412*^9, 3.570628124196412*^9}, {
   3.6219006048689528`*^9, 3.6219006048689528`*^9}, {3.621906584467966*^9, 
   3.6219065844689665`*^9}, {3.716440871523757*^9, 3.716440871523757*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", 
     RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
      FractionBox[
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", " ", "x"}], ")"}], 
         RowBox[{"m", "+", "1"}]], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", " ", 
            RowBox[{"Log", "[", 
             RowBox[{"c", " ", 
              SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
         RowBox[{"p", "+", "1"}]]}], 
       RowBox[{"b", " ", "d", " ", "n", " ", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}]]}]}]}]}], "-", 
  RowBox[{
   FractionBox[
    RowBox[{"m", "+", "1"}], 
    RowBox[{"b", " ", "n", 
     RowBox[{"(", 
      RowBox[{"p", "+", "1"}], ")"}]}]], 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], 
      RowBox[{"p", "+", "1"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.4952019860094833`*^9, 3.4952019978094997`*^9}, 
   3.495202186849764*^9, {3.495202396160057*^9, 3.495202406320071*^9}, {
   3.570582814901408*^9, 3.5705828484214554`*^9}, {3.5705828904215145`*^9, 
   3.570582913931547*^9}, {3.570582981621642*^9, 3.570582981761642*^9}, {
   3.6219006770190797`*^9, 3.6219006783951583`*^9}, 3.6219007288060417`*^9, {
   3.6219008014111943`*^9, 3.6219008024112515`*^9}, {3.621906499543109*^9, 
   3.621906527062683*^9}, {3.7164402729155188`*^9, 3.7164402739955807`*^9}, {
   3.7164403064504366`*^9, 3.716440307163478*^9}, {3.716440843578159*^9, 
   3.7164408502155385`*^9}, {3.7164408847845154`*^9, 3.7164409562896056`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "*", 
     RowBox[{
      RowBox[{
       RowBox[{"(", 
        RowBox[{"a", "+", 
         RowBox[{"b", "*", 
          RowBox[{"Log", "[", 
           RowBox[{"c", "*", 
            RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
       RowBox[{"(", 
        RowBox[{"p", "+", "1"}], ")"}]}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "d", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}]}], " ", "-", " ", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}], "/", 
      RowBox[{"(", 
       RowBox[{"b", "*", "n", "*", 
        RowBox[{"(", 
         RowBox[{"p", "+", "1"}], ")"}]}], ")"}]}], "*", 
     RowBox[{"Int", "[", 
      RowBox[{
       RowBox[{
        RowBox[{
         RowBox[{"(", 
          RowBox[{"d", "*", "x"}], ")"}], "^", "m"}], "*", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"a", "+", 
           RowBox[{"b", "*", 
            RowBox[{"Log", "[", 
             RowBox[{"c", "*", 
              RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", 
         RowBox[{"(", 
          RowBox[{"p", "+", "1"}], ")"}]}]}], ",", "x"}], "]"}]}]}], " ", "/;",
    "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n"}], "}"}],
       ",", "x"}], "]"}], " ", "&&", " ", 
    RowBox[{"NeQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"-", "1"}]}], "]"}], " ", "&&", " ", 
    RowBox[{"LtQ", "[", 
     RowBox[{"p", ",", 
      RowBox[{"-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.4952000136967216`*^9, 
   3.495201805939231*^9, 3.4952019420094213`*^9, 3.4952021430497026`*^9, {
   3.4952023111099377`*^9, 3.4952023425599823`*^9}, {3.4952024566001415`*^9, 
   3.495202471920163*^9}, 3.5487331586211553`*^9, 3.548733304391493*^9, {
   3.570583024571702*^9, 3.5705830339117155`*^9}, {3.5705830718717685`*^9, 
   3.570583083371784*^9}, 3.570583192461937*^9, 3.6219010368316593`*^9, 
   3.6219011284298987`*^9, 3.6219012233423276`*^9, 3.6219012649657083`*^9, {
   3.6219013218619623`*^9, 3.6219013227500134`*^9}, {3.6219065671109734`*^9, 
   3.6219065768495307`*^9}, 3.6219066402641573`*^9, {3.705191868316059*^9, 
   3.7051918749414387`*^9}, {3.7051920843454156`*^9, 3.7051920872985845`*^9}, 
   3.7051923691547055`*^9, {3.716440999917101*^9, 3.7164410059774475`*^9}, {
   3.7164410632727246`*^9, 3.7164410874181056`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["4.",
   FontFamily->"Arial"]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], "m"], 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "n"]}], "]"}]], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"m", "\[Equal]", 
      RowBox[{"n", "-", "1"}]}]]]], "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193415004828687`*^9, 3.5193415113404875`*^9}, {
   3.5193513965602303`*^9, 3.519351397420232*^9}, {3.5194037839416766`*^9, 
   3.5194037847117205`*^9}, 3.52105258275843*^9, 3.5210531741726685`*^9, {
   3.521057461672199*^9, 3.5210574760242243`*^9}, {3.521059881564049*^9, 
   3.521059886088057*^9}, {3.5213902158895197`*^9, 3.521390217543123*^9}, {
   3.521390827878595*^9, 3.521390829376197*^9}, {3.5214688792561245`*^9, 
   3.521468879443325*^9}, {3.523320201951167*^9, 3.523320202247567*^9}, {
   3.5288596764894824`*^9, 3.5288596768094826`*^9}, {3.529196266260353*^9, 
   3.5291962665099535`*^9}, {3.5291997050223927`*^9, 
   3.5291997052563934`*^9}, {3.529201346457276*^9, 3.529201347252877*^9}, {
   3.529285041073242*^9, 3.5292850412632427`*^9}, {3.529285215443486*^9, 
   3.529285215443486*^9}, {3.5295115356999426`*^9, 3.5295115433443794`*^9}, {
   3.529521412127842*^9, 3.529521414647986*^9}, {3.529529429975619*^9, 
   3.529529432955224*^9}, 3.5340074894011116`*^9, 3.5415537711400824`*^9, {
   3.5415538454742126`*^9, 3.54155384951462*^9}, {3.5417297197063265`*^9, 
   3.5417297252443366`*^9}, {3.546297494083555*^9, 3.5462974982435613`*^9}, {
   3.5462989134855423`*^9, 3.5462989153655453`*^9}, 3.548544146508506*^9, 
   3.5488738855784535`*^9, {3.5505953688729563`*^9, 3.5505953726861744`*^9}, {
   3.550619508681926*^9, 3.5506195174954305`*^9}, 3.551141312203285*^9, {
   3.551326415044454*^9, 3.551326416108515*^9}, {3.551823449731494*^9, 
   3.551823449931494*^9}, {3.55182610408771*^9, 3.55182610424771*^9}, {
   3.5521522981425934`*^9, 3.5521522984389935`*^9}, {3.5705813800794*^9, 
   3.570581382129403*^9}, 3.6219003893266244`*^9, 3.621978781628976*^9, {
   3.716416515904793*^9, 3.7164165276424637`*^9}, {3.716439416289522*^9, 
   3.716439431769408*^9}, {3.7165057482396097`*^9, 3.716505756719095*^9}, {
   3.716517308800836*^9, 3.7165173222936077`*^9}, {3.7184068152904587`*^9, 
   3.7184068154774694`*^9}, {3.7184071548558807`*^9, 
   3.7184071550818934`*^9}, {3.722804402413475*^9, 3.7228044027044916`*^9}, 
   3.7461204273899326`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["1:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["x", "m"], 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Equal]", 
       RowBox[{"n", "-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, 3.550850564117722*^9, 
   3.55085086060068*^9, {3.5511408787654934`*^9, 3.5511409652134385`*^9}, {
   3.5511410229287395`*^9, 3.5511410229287395`*^9}, {3.551141425269752*^9, 
   3.5511414262078056`*^9}, 3.5705813877894106`*^9, {3.6218999397769117`*^9, 
   3.6218999422930555`*^9}, 3.6219787890043974`*^9, 3.7164165990485487`*^9, 
   3.716421987700762*^9, 3.716422185800092*^9, 3.7164222994325914`*^9, {
   3.7164227223747826`*^9, 3.716422724410899*^9}, {3.7164229455835495`*^9, 
   3.71642294577756*^9}, {3.7164432255844016`*^9, 3.716443227234496*^9}, 
   3.71644335038054*^9, {3.7164434030225506`*^9, 3.716443410307967*^9}, {
   3.7164443262553563`*^9, 3.7164443265533733`*^9}, 3.7164444494294014`*^9, 
   3.716505762798443*^9, {3.716514854432454*^9, 3.7165148546444664`*^9}, {
   3.7165162114510717`*^9, 3.716516270417444*^9}, {3.7165165094931183`*^9, 
   3.716516509784135*^9}, {3.716517299708316*^9, 3.7165172999223285`*^9}, 
   3.746120427853959*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Integration by substitution", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, {
   3.7164202433349895`*^9, 3.71642025627973*^9}, {3.71651628451025*^9, 
   3.7165162883764715`*^9}}],

Cell[TextData[{
 "Note: The resulting antiderivative of this unessential rule is expressed in \
terms of ",
 Cell[BoxData["LogIntegral"],
  CellChangeTimes->{3.716510833879492*^9, 3.7165129597960873`*^9, 
   3.7165156351511087`*^9, 3.716516824936161*^9}],
 " instead of ",
 Cell[BoxData["ExpIntegralEi"],
  CellChangeTimes->{3.7165169946588683`*^9}],
 "."
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.570583225241983*^9, 
   3.570583225241983*^9}, {3.570628124196412*^9, 3.570628124196412*^9}, {
   3.6219006048689528`*^9, 3.6219006048689528`*^9}, {3.621906584467966*^9, 
   3.6219065844689665`*^9}, {3.716440871523757*^9, 3.716440871523757*^9}, {
   3.716515300587973*^9, 3.716515300587973*^9}, {3.7165163204263043`*^9, 
   3.7165163204263043`*^9}, {3.716516755714202*^9, 3.7165168005207644`*^9}, {
   3.716516890952937*^9, 3.7165169251098905`*^9}, {3.716516959689868*^9, 
   3.7165170592955656`*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Equal]", 
   RowBox[{"n", "-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.570583225241983*^9, 
   3.570583225241983*^9}, {3.570628124196412*^9, 3.570628124196412*^9}, {
   3.6219006048689528`*^9, 3.6219006048689528`*^9}, {3.621906584467966*^9, 
   3.6219065844689665`*^9}, {3.716440871523757*^9, 3.716440871523757*^9}, {
   3.716515300587973*^9, 3.716515300587973*^9}, {3.7165163204263043`*^9, 
   3.7165163204263043`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    SuperscriptBox["x", "m"], 
    RowBox[{"Log", "[", 
     RowBox[{"c", " ", 
      SuperscriptBox["x", "n"]}], "]"}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", "n"]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       FractionBox["1", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", "x"}], "]"}]], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     SuperscriptBox["x", "n"]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.5705598844879603`*^9, 3.5705598906079693`*^9}, {
   3.6218987652867346`*^9, 3.6218988171897035`*^9}, {3.621898877151133*^9, 
   3.6218989022125664`*^9}, {3.71641658841094*^9, 3.71641658893897*^9}, 
   3.716417539660348*^9, {3.7164175776505213`*^9, 3.7164176175118012`*^9}, {
   3.716417719489634*^9, 3.716417726642043*^9}, {3.716420061775605*^9, 
   3.716420134034738*^9}, {3.716420189208894*^9, 3.7164201896279173`*^9}, {
   3.716420227586089*^9, 3.7164202282441263`*^9}, {3.7164216796781435`*^9, 
   3.716421698824239*^9}, {3.7164219936731033`*^9, 3.7164220172984543`*^9}, {
   3.7164417918133945`*^9, 3.7164417936525*^9}, {3.716442737914509*^9, 
   3.7164427536484084`*^9}, {3.716442789584464*^9, 3.7164427900774918`*^9}, {
   3.7164429999524965`*^9, 3.716443000696539*^9}, {3.716443412176074*^9, 
   3.716443412582097*^9}, {3.71644354987495*^9, 3.7164435749553843`*^9}, {
   3.7164436755521383`*^9, 3.7164436940371957`*^9}, {3.716443755556714*^9, 
   3.716443767532399*^9}, {3.716443844282789*^9, 3.716443851576206*^9}, 
   3.716444105100707*^9, 3.7165163035533395`*^9, {3.716516349628975*^9, 
   3.7165163971966953`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "/", 
     RowBox[{"Log", "[", 
      RowBox[{"c_.", "*", 
       RowBox[{"x_", "^", "n_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", "n"}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{"1", "/", 
         RowBox[{"Log", "[", 
          RowBox[{"c", "*", "x"}], "]"}]}], ",", "x"}], "]"}], ",", "x", ",", 
      RowBox[{"x", "^", "n"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], " ", "&&",
     " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"n", "-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.495200523437435*^9, 
   3.495200639177597*^9, 3.495200753047757*^9, 3.4952010407881594`*^9, 
   3.4952013363585734`*^9, {3.4952570835699644`*^9, 3.495257087673199*^9}, {
   3.4952590667663965`*^9, 3.495259071698679*^9}, {3.495259155129451*^9, 
   3.4952591595397034`*^9}, {3.4952592284316435`*^9, 3.495259233363926*^9}, {
   3.5705608083492537`*^9, 3.570560819349269*^9}, {3.570560875679348*^9, 
   3.5705608813493557`*^9}, {3.6219001333179817`*^9, 3.62190014570369*^9}, {
   3.621900249252613*^9, 3.621900251408736*^9}, {3.6219002913290195`*^9, 
   3.6219002928911085`*^9}, {3.7164228363883038`*^9, 3.716422849596059*^9}, {
   3.7164229128336763`*^9, 3.7164229352129564`*^9}, 3.7164392531651926`*^9, 
   3.7164392890572453`*^9, {3.7164440694126663`*^9, 3.716444083264458*^9}, 
   3.716444247598858*^9, 3.716503487024276*^9, {3.716516330148861*^9, 
   3.7165163375382833`*^9}, {3.7165164401241508`*^9, 3.7165164739990883`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"\t", 
  RowBox[{Cell[TextData[StyleBox["2:",
    FontFamily->"Arial",
    FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", " ", "x"}], ")"}], "m"], 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]], 
     RowBox[{"\[DifferentialD]", "x"}], "  ", 
     StyleBox["when",
      FontFamily->"Arial",
      FontWeight->"Plain"], 
     StyleBox["  ",
      FontFamily->"Arial",
      FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
      RowBox[{"m", "\[Equal]", 
       RowBox[{"n", "-", "1"}]}]]]], "None"]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, 3.550850564117722*^9, 
   3.55085086060068*^9, {3.5511408787654934`*^9, 3.5511409652134385`*^9}, {
   3.5511410229287395`*^9, 3.5511410229287395`*^9}, {3.551141425269752*^9, 
   3.5511414262078056`*^9}, 3.5705813877894106`*^9, {3.6218999397769117`*^9, 
   3.6218999422930555`*^9}, 3.6219787890043974`*^9, 3.7164165990485487`*^9, 
   3.716421987700762*^9, 3.716422185800092*^9, 3.7164222994325914`*^9, {
   3.7164227223747826`*^9, 3.716422724410899*^9}, {3.7164229455835495`*^9, 
   3.71642294577756*^9}, {3.7164432255844016`*^9, 3.716443227234496*^9}, 
   3.71644335038054*^9, {3.7164434030225506`*^9, 3.716443410307967*^9}, {
   3.7164443262553563`*^9, 3.7164443265533733`*^9}, 3.7164444494294014`*^9, 
   3.716505762798443*^9, {3.716514854432454*^9, 3.7165148546444664`*^9}, {
   3.7165162114510717`*^9, 3.716516270417444*^9}, {3.7165165094931183`*^9, 
   3.716516509784135*^9}, {3.716517299708316*^9, 3.7165172999223285`*^9}, {
   3.71651734103668*^9, 3.7165173513912725`*^9}, 3.746120428325986*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, {
   3.7164202433349895`*^9, 3.71642025627973*^9}, {3.71651628451025*^9, 
   3.7165162883764715`*^9}, {3.716517356192547*^9, 3.716517364275009*^9}}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Equal]", 
   RowBox[{"n", "-", "1"}]}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.570583225241983*^9, 
   3.570583225241983*^9}, {3.570628124196412*^9, 3.570628124196412*^9}, {
   3.6219006048689528`*^9, 3.6219006048689528`*^9}, {3.621906584467966*^9, 
   3.6219065844689665`*^9}, {3.716440871523757*^9, 3.716440871523757*^9}, {
   3.716515300587973*^9, 3.716515300587973*^9}, {3.7165163204263043`*^9, 
   3.7165163204263043`*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   FractionBox[
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], 
    RowBox[{"Log", "[", 
     RowBox[{"c", " ", 
      SuperscriptBox["x", "n"]}], "]"}]], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", " ", "x"}], ")"}], "m"], 
      SuperscriptBox["x", "m"]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      SuperscriptBox["x", "m"], 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.5705598844879603`*^9, 3.5705598906079693`*^9}, {
   3.6218987652867346`*^9, 3.6218988171897035`*^9}, {3.621898877151133*^9, 
   3.6218989022125664`*^9}, {3.71641658841094*^9, 3.71641658893897*^9}, 
   3.716417539660348*^9, {3.7164175776505213`*^9, 3.7164176175118012`*^9}, {
   3.716417719489634*^9, 3.716417726642043*^9}, {3.716420061775605*^9, 
   3.716420134034738*^9}, {3.716420189208894*^9, 3.7164201896279173`*^9}, {
   3.716420227586089*^9, 3.7164202282441263`*^9}, {3.7164216796781435`*^9, 
   3.716421698824239*^9}, {3.7164219936731033`*^9, 3.7164220172984543`*^9}, {
   3.7164417918133945`*^9, 3.7164417936525*^9}, {3.716442737914509*^9, 
   3.7164427536484084`*^9}, {3.716442789584464*^9, 3.7164427900774918`*^9}, {
   3.7164429999524965`*^9, 3.716443000696539*^9}, {3.716443412176074*^9, 
   3.716443412582097*^9}, {3.71644354987495*^9, 3.7164435749553843`*^9}, {
   3.7164436755521383`*^9, 3.7164436940371957`*^9}, {3.716443755556714*^9, 
   3.716443767532399*^9}, {3.716443844282789*^9, 3.716443851576206*^9}, 
   3.716444105100707*^9, 3.7165163035533395`*^9, {3.716516349628975*^9, 
   3.7165163971966953`*^9}, {3.7165173799569063`*^9, 3.7165174034902525`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_", "*", "x_"}], ")"}], "^", "m_."}], "/", 
     RowBox[{"Log", "[", 
      RowBox[{"c_.", "*", 
       RowBox[{"x_", "^", "n_"}]}], "]"}]}], ",", "x_Symbol"}], "]"}], " ", ":=",
   "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", "m"}], "/", 
     RowBox[{"x", "^", "m"}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", "m"}], "/", 
       RowBox[{"Log", "[", 
        RowBox[{"c", "*", 
         RowBox[{"x", "^", "n"}]}], "]"}]}], ",", "x"}], "]"}]}], " ", "/;", 
   "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"c", ",", "d", ",", "m", ",", "n"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"EqQ", "[", 
     RowBox[{"m", ",", 
      RowBox[{"n", "-", "1"}]}], "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.495200523437435*^9, 
   3.495200639177597*^9, 3.495200753047757*^9, 3.4952010407881594`*^9, 
   3.4952013363585734`*^9, {3.4952570835699644`*^9, 3.495257087673199*^9}, {
   3.4952590667663965`*^9, 3.495259071698679*^9}, {3.495259155129451*^9, 
   3.4952591595397034`*^9}, {3.4952592284316435`*^9, 3.495259233363926*^9}, {
   3.5705608083492537`*^9, 3.570560819349269*^9}, {3.570560875679348*^9, 
   3.5705608813493557`*^9}, {3.6219001333179817`*^9, 3.62190014570369*^9}, {
   3.621900249252613*^9, 3.621900251408736*^9}, {3.6219002913290195`*^9, 
   3.6219002928911085`*^9}, {3.7164228363883038`*^9, 3.716422849596059*^9}, {
   3.7164229128336763`*^9, 3.7164229352129564`*^9}, 3.7164392531651926`*^9, 
   3.7164392890572453`*^9, {3.7164440694126663`*^9, 3.716444083264458*^9}, 
   3.716444247598858*^9, 3.716503487024276*^9, {3.716516330148861*^9, 
   3.7165163375382833`*^9}, {3.7165164401241508`*^9, 
   3.7165164739990883`*^9}, {3.716517412625775*^9, 3.7165174478537893`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["5:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}], "  ", 
    StyleBox["when",
     FontFamily->"Arial",
     FontWeight->"Plain"], 
    StyleBox["  ",
     FontFamily->"Arial",
     FontWeight->"Plain"], Cell[TextData[Cell[BoxData[
     RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]]], 
     "None"]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, 3.550850564117722*^9, 
   3.55085086060068*^9, {3.5511408787654934`*^9, 3.5511409652134385`*^9}, {
   3.5511410229287395`*^9, 3.5511410229287395`*^9}, {3.551141425269752*^9, 
   3.5511414262078056`*^9}, 3.5705813877894106`*^9, {3.6218999397769117`*^9, 
   3.6218999422930555`*^9}, 3.6219787890043974`*^9, 3.7164165990485487`*^9, 
   3.716421987700762*^9, 3.716422185800092*^9, 3.7164222994325914`*^9, {
   3.7164227223747826`*^9, 3.716422724410899*^9}, {3.7164229455835495`*^9, 
   3.71642294577756*^9}, {3.7164432255844016`*^9, 3.716443227234496*^9}, 
   3.71644335038054*^9, {3.7164434030225506`*^9, 3.716443410307967*^9}, {
   3.7164443262553563`*^9, 3.7164443265533733`*^9}, 3.7164444494294014`*^9, 
   3.716505762798443*^9, 3.716514865982115*^9, {3.716515027735367*^9, 
   3.7165150466814504`*^9}, 3.7165151719516153`*^9, {3.716516525395028*^9, 
   3.7165165255860386`*^9}, {3.7165172807372313`*^9, 3.7165172809532433`*^9}, 
   3.7184070926733236`*^9, {3.7184071582860765`*^9, 3.718407158563092*^9}, {
   3.722804404697605*^9, 3.722804405050626*^9}, 3.746120428813014*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Integration by substitution\
\>", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, {
   3.7164202433349895`*^9, 3.71642025627973*^9}, {3.716514886911312*^9, 
   3.716514889928485*^9}}],

Cell[TextData[{
 "Basis:",
 " If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then",
 " ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SuperscriptBox["x", "m"], " ", 
    RowBox[{"F", "[", 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", "x"}], "]"}], "]"}]}], "\[Equal]", 
   RowBox[{
    FractionBox["1", 
     SuperscriptBox["c", 
      RowBox[{"m", "+", "1"}]]], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}], " ", "x"}]], " ", 
       RowBox[{"F", "[", "x", "]"}]}], ",", "x", ",", 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", "x"}], "]"}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", "x"}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, {3.4951648090562844`*^9, 
   3.495164816591098*^9}, 3.4951998608665075`*^9, 3.4951999947566953`*^9, {
   3.5511408209821887`*^9, 3.5511408223792686`*^9}, {3.7164202833232765`*^9, 
   3.716420283324277*^9}, {3.716420431742766*^9, 3.716420431742766*^9}, {
   3.716443173263409*^9, 3.716443173263409*^9}, {3.7164440142795124`*^9, 
   3.7164440142795124`*^9}, {3.716444419537692*^9, 3.716444419537692*^9}, {
   3.716514098425213*^9, 3.716514098425213*^9}, {3.7165152675190816`*^9, 
   3.7165152675190816`*^9}, 3.7165153115015974`*^9}],

Cell[TextData[{
 "Rule: If  ",
 Cell[BoxData[
  RowBox[{"m", "\[Element]", "\[DoubleStruckCapitalZ]"}]]],
 ", then"
}], "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.495201853289297*^9, 3.4952018648993134`*^9}, {
   3.495202034479551*^9, 3.495202075309608*^9}, {3.4952022052197895`*^9, 
   3.495202209799796*^9}, {3.49520236235001*^9, 3.495202364530013*^9}, {
   3.4952024627101507`*^9, 3.495202466110155*^9}, {3.570583225241983*^9, 
   3.570583225241983*^9}, {3.570628124196412*^9, 3.570628124196412*^9}, {
   3.6219006048689528`*^9, 3.6219006048689528`*^9}, {3.621906584467966*^9, 
   3.6219065844689665`*^9}, {3.716440871523757*^9, 3.716440871523757*^9}, {
   3.716515300587973*^9, 3.716515300587973*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox["x", "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", "x"}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox["1", 
      SuperscriptBox["c", 
       RowBox[{"m", "+", "1"}]]]}]}], " ", 
   RowBox[{"Subst", "[", 
    RowBox[{
     RowBox[{"\[Integral]", 
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"m", "+", "1"}], ")"}], " ", "x"}]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", "x"}]}], ")"}], "p"], 
       RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", "x"}], "]"}]}], "]"}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.5705598844879603`*^9, 3.5705598906079693`*^9}, {
   3.6218987652867346`*^9, 3.6218988171897035`*^9}, {3.621898877151133*^9, 
   3.6218989022125664`*^9}, {3.71641658841094*^9, 3.71641658893897*^9}, 
   3.716417539660348*^9, {3.7164175776505213`*^9, 3.7164176175118012`*^9}, {
   3.716417719489634*^9, 3.716417726642043*^9}, {3.716420061775605*^9, 
   3.716420134034738*^9}, {3.716420189208894*^9, 3.7164201896279173`*^9}, {
   3.716420227586089*^9, 3.7164202282441263`*^9}, {3.7164216796781435`*^9, 
   3.716421698824239*^9}, {3.7164219936731033`*^9, 3.7164220172984543`*^9}, {
   3.7164417918133945`*^9, 3.7164417936525*^9}, {3.716442737914509*^9, 
   3.7164427536484084`*^9}, {3.716442789584464*^9, 3.7164427900774918`*^9}, {
   3.7164429999524965`*^9, 3.716443000696539*^9}, {3.716443412176074*^9, 
   3.716443412582097*^9}, {3.71644354987495*^9, 3.7164435749553843`*^9}, {
   3.7164436755521383`*^9, 3.7164436940371957`*^9}, {3.716443755556714*^9, 
   3.716443767532399*^9}, {3.716443844282789*^9, 3.716443851576206*^9}, 
   3.716444105100707*^9, {3.7165148714104257`*^9, 3.716514902307193*^9}, {
   3.7165150901879387`*^9, 3.7165151820871954`*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"x_", "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", "x_"}], "]"}]}]}], ")"}], "^", "p_"}]}], ",", 
    "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"c", "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}]}], "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"m", "+", "1"}], ")"}], "*", "x"}], ")"}]}], "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}], ",", "x"}], "]"}],
       ",", "x", ",", 
      RowBox[{"Log", "[", 
       RowBox[{"c", "*", "x"}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{
    RowBox[{"FreeQ", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b", ",", "c", ",", "p"}], "}"}], ",", "x"}], "]"}], 
    " ", "&&", " ", 
    RowBox[{"IntegerQ", "[", "m", "]"}]}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.495200523437435*^9, 
   3.495200639177597*^9, 3.495200753047757*^9, 3.4952010407881594`*^9, 
   3.4952013363585734`*^9, {3.4952570835699644`*^9, 3.495257087673199*^9}, {
   3.4952590667663965`*^9, 3.495259071698679*^9}, {3.495259155129451*^9, 
   3.4952591595397034`*^9}, {3.4952592284316435`*^9, 3.495259233363926*^9}, {
   3.5705608083492537`*^9, 3.570560819349269*^9}, {3.570560875679348*^9, 
   3.5705608813493557`*^9}, {3.6219001333179817`*^9, 3.62190014570369*^9}, {
   3.621900249252613*^9, 3.621900251408736*^9}, {3.6219002913290195`*^9, 
   3.6219002928911085`*^9}, {3.7164228363883038`*^9, 3.716422849596059*^9}, {
   3.7164229128336763`*^9, 3.7164229352129564`*^9}, 3.7164392531651926`*^9, 
   3.7164392890572453`*^9, {3.7164440694126663`*^9, 3.716444083264458*^9}, 
   3.716444247598858*^9, 3.716503487024276*^9, {3.7165153795154877`*^9, 
   3.7165153850868063`*^9}, {3.7165154265281763`*^9, 3.716515451139584*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["6:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.5506192681491685`*^9, 3.550619293563622*^9}, {3.5506195305301757`*^9, 
   3.550619538392626*^9}, 3.5508113633281665`*^9, 3.550850564117722*^9, 
   3.55085086060068*^9, {3.5511408787654934`*^9, 3.5511409652134385`*^9}, {
   3.5511410229287395`*^9, 3.5511410229287395`*^9}, {3.551141425269752*^9, 
   3.5511414262078056`*^9}, 3.5705813877894106`*^9, {3.6218999397769117`*^9, 
   3.6218999422930555`*^9}, 3.6219787890043974`*^9, 3.7164165990485487`*^9, 
   3.716421987700762*^9, 3.716422185800092*^9, 3.7164222994325914`*^9, {
   3.7164227223747826`*^9, 3.716422724410899*^9}, {3.7164229455835495`*^9, 
   3.71642294577756*^9}, {3.7164432255844016`*^9, 3.716443227234496*^9}, 
   3.71644335038054*^9, {3.7164434030225506`*^9, 3.716443410307967*^9}, {
   3.7164443262553563`*^9, 3.7164443265533733`*^9}, 3.7164444494294014`*^9, 
   3.716505762798443*^9, {3.716514854432454*^9, 3.7165148546444664`*^9}, {
   3.716516529904286*^9, 3.716516530093297*^9}, {3.7165172824003263`*^9, 
   3.716517282588337*^9}, 3.718407093395365*^9, {3.7184071672935915`*^9, 
   3.7184071676516123`*^9}, {3.722804407132745*^9, 3.7228044076897764`*^9}, 
   3.7461204293090425`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["\<\
Derivation: Piecewise constant extraction and integration by substitution\
\>", "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, 3.4951647977306643`*^9, {
   3.7164202433349895`*^9, 3.71642025627973*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", "x"}], ")"}], 
      RowBox[{"m", "+", "1"}]], 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], ")"}], 
      FractionBox[
       RowBox[{"m", "+", "1"}], "n"]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, {3.4951648090562844`*^9, 
   3.495164816591098*^9}, 3.4951998608665075`*^9, 3.4951999947566953`*^9, {
   3.5511408209821887`*^9, 3.5511408223792686`*^9}, {3.7164202833232765`*^9, 
   3.716420283324277*^9}, {3.7164437787420406`*^9, 3.7164437787420406`*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   FractionBox[
    RowBox[{
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], ")"}], "k"], " ", 
     RowBox[{"F", "[", 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}], "]"}]}], "x"], "\[Equal]", 
   RowBox[{
    FractionBox["1", "n"], " ", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{
       SuperscriptBox["\[ExponentialE]", 
        RowBox[{"k", " ", "x"}]], " ", 
       RowBox[{"F", "[", "x", "]"}]}], ",", "x", ",", 
      RowBox[{"Log", "[", 
       RowBox[{"c", " ", 
        SuperscriptBox["x", "n"]}], "]"}]}], "]"}], " ", 
    RowBox[{
     SubscriptBox["\[PartialD]", "x"], 
     RowBox[{"Log", "[", 
      RowBox[{"c", " ", 
       SuperscriptBox["x", "n"]}], "]"}]}]}]}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.479686820458373*^9, {3.490657960122612*^9, 3.49065796095366*^9}, 
   3.4940010628073196`*^9, 3.4941723607787027`*^9, 3.4941724567488375`*^9, 
   3.494172696119172*^9, 3.4951614417343683`*^9, 3.495161553867365*^9, 
   3.49516358311173*^9, 3.4951639989000616`*^9, {3.4951648090562844`*^9, 
   3.495164816591098*^9}, 3.4951998608665075`*^9, 3.4951999947566953`*^9, {
   3.5511408209821887`*^9, 3.5511408223792686`*^9}, {3.7164202833232765`*^9, 
   3.716420283324277*^9}, {3.716420431742766*^9, 3.716420431742766*^9}, {
   3.716443173263409*^9, 3.716443173263409*^9}, {3.716444006603073*^9, 
   3.716444006603073*^9}, {3.7164444078880253`*^9, 3.7164444078880253`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, 3.494172783029294*^9, {
   3.495162076203082*^9, 3.495162102707529*^9}, {3.495162264932214*^9, 
   3.495162277318636*^9}, {3.4951637747120676`*^9, 3.495163775320469*^9}, {
   3.4951642488437004`*^9, 3.4951642509653044`*^9}, {3.495200116396866*^9, 
   3.4952001199668703`*^9}, {3.49520041937729*^9, 3.495200429777304*^9}, {
   3.4952005880875263`*^9, 3.4952005951475353`*^9}, {3.4952010952482357`*^9, 
   3.4952010970482388`*^9}, {3.495259125616763*^9, 3.495259125616763*^9}, {
   3.621899945811257*^9, 3.621899945811257*^9}, 3.716422941945341*^9}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", " ", "x"}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", " ", "x"}], ")"}], 
       RowBox[{"m", "+", "1"}]], 
      RowBox[{"d", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], ")"}], 
        FractionBox[
         RowBox[{"m", "+", "1"}], "n"]]}]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], ")"}], 
        FractionBox[
         RowBox[{"m", "+", "1"}], "n"]], " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", " ", 
           RowBox[{"Log", "[", 
            RowBox[{"c", " ", 
             SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"]}], "x"], 
     RowBox[{"\[DifferentialD]", 
      RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"d", " ", "x"}], ")"}], 
         RowBox[{"m", "+", "1"}]], 
        RowBox[{"d", " ", "n", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"c", " ", 
            SuperscriptBox["x", "n"]}], ")"}], 
          FractionBox[
           RowBox[{"m", "+", "1"}], "n"]]}]]}]}], " ", 
     RowBox[{"Subst", "[", 
      RowBox[{
       RowBox[{"\[Integral]", 
        RowBox[{
         SuperscriptBox["\[ExponentialE]", 
          RowBox[{
           FractionBox[
            RowBox[{"m", "+", "1"}], "n"], " ", "x"}]], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", " ", "x"}]}], ")"}], "p"], 
         RowBox[{"\[DifferentialD]", "x"}]}]}], ",", "x", ",", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}], "]"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.495161485476845*^9, 3.4951615041032777`*^9}, {3.495161845931078*^9, 
   3.4951618787379355`*^9}, {3.495163638398227*^9, 3.495163646853442*^9}, 
   3.49516370254554*^9, {3.495164038477331*^9, 3.4951640737177925`*^9}, 
   3.495199899876562*^9, 3.49519994111662*^9, {3.4952000649467936`*^9, 
   3.495200075966809*^9}, {3.5705598844879603`*^9, 3.5705598906079693`*^9}, {
   3.6218987652867346`*^9, 3.6218988171897035`*^9}, {3.621898877151133*^9, 
   3.6218989022125664`*^9}, {3.71641658841094*^9, 3.71641658893897*^9}, 
   3.716417539660348*^9, {3.7164175776505213`*^9, 3.7164176175118012`*^9}, {
   3.716417719489634*^9, 3.716417726642043*^9}, {3.716420061775605*^9, 
   3.716420134034738*^9}, {3.716420189208894*^9, 3.7164201896279173`*^9}, {
   3.716420227586089*^9, 3.7164202282441263`*^9}, {3.7164216796781435`*^9, 
   3.716421698824239*^9}, {3.7164219936731033`*^9, 3.7164220172984543`*^9}, {
   3.7164417918133945`*^9, 3.7164417936525*^9}, {3.716442737914509*^9, 
   3.7164427536484084`*^9}, {3.716442789584464*^9, 3.7164427900774918`*^9}, {
   3.7164429999524965`*^9, 3.716443000696539*^9}, {3.716443412176074*^9, 
   3.716443412582097*^9}, {3.71644354987495*^9, 3.7164435749553843`*^9}, {
   3.7164436755521383`*^9, 3.7164436940371957`*^9}, {3.716443755556714*^9, 
   3.716443767532399*^9}, {3.716443844282789*^9, 3.716443851576206*^9}, 
   3.716444105100707*^9},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", "x_"}], ")"}], "^", "m_."}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_"}]}], ",",
     "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", "x"}], ")"}], "^", 
      RowBox[{"(", 
       RowBox[{"m", "+", "1"}], ")"}]}], "/", 
     RowBox[{"(", 
      RowBox[{"d", "*", "n", "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"c", "*", 
          RowBox[{"x", "^", "n"}]}], ")"}], "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], ")"}]}]}], ")"}]}], 
    "*", 
    RowBox[{"Subst", "[", 
     RowBox[{
      RowBox[{"Int", "[", 
       RowBox[{
        RowBox[{
         RowBox[{"E", "^", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{"m", "+", "1"}], ")"}], "/", "n"}], "*", "x"}], ")"}]}],
          "*", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"a", "+", 
            RowBox[{"b", "*", "x"}]}], ")"}], "^", "p"}]}], ",", "x"}], "]"}],
       ",", "x", ",", 
      RowBox[{"Log", "[", 
       RowBox[{"c", "*", 
        RowBox[{"x", "^", "n"}]}], "]"}]}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p"}], 
      "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, 
   3.495161451843186*^9, 3.4951616675135646`*^9, 3.495163619631394*^9, 
   3.495164018025695*^9, 3.495199875426528*^9, 3.495200523437435*^9, 
   3.495200639177597*^9, 3.495200753047757*^9, 3.4952010407881594`*^9, 
   3.4952013363585734`*^9, {3.4952570835699644`*^9, 3.495257087673199*^9}, {
   3.4952590667663965`*^9, 3.495259071698679*^9}, {3.495259155129451*^9, 
   3.4952591595397034`*^9}, {3.4952592284316435`*^9, 3.495259233363926*^9}, {
   3.5705608083492537`*^9, 3.570560819349269*^9}, {3.570560875679348*^9, 
   3.5705608813493557`*^9}, {3.6219001333179817`*^9, 3.62190014570369*^9}, {
   3.621900249252613*^9, 3.621900251408736*^9}, {3.6219002913290195`*^9, 
   3.6219002928911085`*^9}, {3.7164228363883038`*^9, 3.716422849596059*^9}, {
   3.7164229128336763`*^9, 3.7164229352129564`*^9}, 3.7164392531651926`*^9, 
   3.7164392890572453`*^9, {3.7164440694126663`*^9, 3.716444083264458*^9}, 
   3.716444247598858*^9, 3.716503487024276*^9},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{Cell[TextData[StyleBox["P:",
   FontFamily->"Arial",
   FontColor->RGBColor[1, 0, 0]]], "None"], "  ", 
  RowBox[{"\[Integral]", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"d", " ", 
       SuperscriptBox["x", "q"]}], ")"}], "m"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"a", "+", 
       RowBox[{"b", " ", 
        RowBox[{"Log", "[", 
         RowBox[{"c", " ", 
          SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
    RowBox[{"\[DifferentialD]", "x"}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{
  3.477935275784027*^9, {3.477935350060832*^9, 3.477935352384173*^9}, {
   3.477935393803731*^9, 3.477935400102789*^9}, {3.477935515378547*^9, 
   3.47793552034569*^9}, 3.478120029940968*^9, {3.479318860690858*^9, 
   3.47931886615872*^9}, {3.4794185033278093`*^9, 3.479418503918659*^9}, 
   3.4795122294117584`*^9, {3.479615913307893*^9, 3.4796159352794867`*^9}, 
   3.4796160386581373`*^9, 3.4796867204045024`*^9, {3.4928025699585147`*^9, 
   3.492802570130115*^9}, 3.492822274480175*^9, 3.492825822242408*^9, {
   3.4940970615585365`*^9, 3.494097062168537*^9}, {3.496441349250718*^9, 
   3.496441349830719*^9}, 3.4964414848609076`*^9, 3.496521708137803*^9, {
   3.4965218981240697`*^9, 3.49652189838407*^9}, 3.4965229070755*^9, 
   3.519247079685614*^9, {3.5193208582062006`*^9, 3.5193208612170057`*^9}, 
   3.5193325694253187`*^9, {3.5193422443984776`*^9, 3.5193422447260776`*^9}, 
   3.5193424488212357`*^9, {3.5193434708254333`*^9, 3.519343473103037*^9}, {
   3.5193435097631016`*^9, 3.51934353169674*^9}, {3.519345739319023*^9, 
   3.519345739599823*^9}, 3.5193462601259375`*^9, {3.5193475061060295`*^9, 
   3.5193475233908596`*^9}, {3.519351391880224*^9, 3.5193513931402254`*^9}, {
   3.519403773021052*^9, 3.5194037798564425`*^9}, 3.5194106793250647`*^9, {
   3.519537578341393*^9, 3.5195375792305946`*^9}, {3.5195376277778797`*^9, 
   3.51953767927357*^9}, {3.5197586260636144`*^9, 3.5197586260636144`*^9}, {
   3.51978053295651*^9, 3.519780542862528*^9}, {3.5197806526087203`*^9, 
   3.5197806657595434`*^9}, {3.5197807490168896`*^9, 3.5197807642581167`*^9}, 
   3.5197809004619555`*^9, {3.519782653514635*^9, 3.5197826623286505`*^9}, {
   3.5200207810164795`*^9, 3.520020785046485*^9}, {3.5213126833374643`*^9, 
   3.5213126833374643`*^9}, {3.521328235411002*^9, 3.521328235411002*^9}, {
   3.523315567893022*^9, 3.523315567893022*^9}, {3.5233157569332867`*^9, 
   3.5233157613032923`*^9}, {3.5323023198133526`*^9, 3.532302355723403*^9}, {
   3.5323026417638035`*^9, 3.5323026417638035`*^9}, {3.5323026980138817`*^9, 
   3.5323026980138817`*^9}, {3.532636287104328*^9, 3.532636287104328*^9}, {
   3.5330803686035347`*^9, 3.533080368863535*^9}, {3.533248909289961*^9, 
   3.5332489110299635`*^9}, {3.534962469565694*^9, 3.5349624910757236`*^9}, {
   3.5349625224057674`*^9, 3.534962522655768*^9}, {3.534965265519608*^9, 
   3.534965265519608*^9}, {3.5349668288168063`*^9, 3.5349668292668066`*^9}, {
   3.5349747358481646`*^9, 3.5349747358481646`*^9}, {3.534975457949176*^9, 
   3.534975457949176*^9}, {3.5368633963532934`*^9, 3.536863396571694*^9}, {
   3.541644322511304*^9, 3.5416443577513533`*^9}, {3.5416458269234104`*^9, 
   3.541645839633428*^9}, {3.5416460312236967`*^9, 3.541646031483697*^9}, 
   3.541646227783972*^9, {3.541647080335165*^9, 3.5416471077052035`*^9}, {
   3.541648997607849*^9, 3.5416489978278494`*^9}, 3.541649088407976*^9, {
   3.5417848711596775`*^9, 3.541784902429721*^9}, {3.541786145331461*^9, 
   3.5417861455914617`*^9}, {3.5417870037166634`*^9, 3.5417870039366636`*^9}, 
   3.5462979620242105`*^9, {3.546298264094633*^9, 3.546298265344635*^9}, {
   3.546299000235664*^9, 3.546299001505666*^9}, {3.546315119909564*^9, 
   3.5463151267659564`*^9}, {3.547227356319705*^9, 3.547227356319705*^9}, 
   3.547918559331044*^9, {3.547918610170952*^9, 3.5479186304411116`*^9}, 
   3.548537755517557*^9, 3.5485441629685287`*^9, 3.5485517520154133`*^9, {
   3.5488740727887154`*^9, 3.5488740727887154`*^9}, {3.548874206618903*^9, 
   3.548874206808903*^9}, 3.548877100795455*^9, 3.550596464087599*^9, {
   3.5505965767870445`*^9, 3.5505965767870445`*^9}, 3.5505966202465305`*^9, {
   3.5506039138305197`*^9, 3.55060391400453*^9}, {3.5506040039986773`*^9, 
   3.550604005776779*^9}, {3.5506178888272758`*^9, 3.5506178900273447`*^9}, {
   3.550770598144562*^9, 3.550770659629079*^9}, {3.5507707252908344`*^9, 
   3.5507707474461017`*^9}, 3.5507880023630266`*^9, {3.5508017696214375`*^9, 
   3.5508017788269644`*^9}, {3.5508018116158395`*^9, 3.5508018116158395`*^9}, 
   3.5508018976437597`*^9, {3.5508021384015307`*^9, 3.550802155115487*^9}, {
   3.5508022151019173`*^9, 3.5508022151019173`*^9}, {3.550802487106476*^9, 
   3.5508025179152374`*^9}, {3.5508029261175857`*^9, 
   3.5508029342300496`*^9}, {3.5521511708590136`*^9, 3.5521511712334137`*^9}, 
   3.552151666269083*^9, {3.5535324250863676`*^9, 3.553532441643315*^9}, {
   3.553532476791325*^9, 3.553532477502366*^9}, {3.5535325810722895`*^9, 
   3.5535325810722895`*^9}, {3.553534924419321*^9, 3.5535349316017323`*^9}, {
   3.5535606916294093`*^9, 3.553560715209442*^9}, {3.553560906999711*^9, 
   3.553560912889719*^9}, {3.5535610183798666`*^9, 3.5535610197098684`*^9}, {
   3.553561508580553*^9, 3.553561525080576*^9}, {3.5535615930406713`*^9, 
   3.5535616035406857`*^9}, {3.554910910997098*^9, 3.554910915757105*^9}, {
   3.5549117484282703`*^9, 3.5549117605482874`*^9}, {3.554912730909646*^9, 
   3.5549127360396533`*^9}, {3.5549136721909637`*^9, 3.5549136721909637`*^9}, 
   3.5549142300017447`*^9, {3.5549148747526474`*^9, 3.5549148749626474`*^9}, {
   3.554915220933132*^9, 3.5549152220731335`*^9}, {3.554915692683792*^9, 
   3.5549156980938*^9}, {3.5549176897465887`*^9, 3.5549176899465885`*^9}, 
   3.554920330620288*^9, {3.554925596005664*^9, 3.554925597395666*^9}, {
   3.554926982447605*^9, 3.5549270074976406`*^9}, 3.55509790030145*^9, 
   3.5853368163522477`*^9, {3.5853381538441205`*^9, 3.5853381746841497`*^9}, 
   3.585338443534526*^9, 3.5853498590510435`*^9, 3.5853508170223846`*^9, 
   3.5853521853768*^9, {3.5853523370670123`*^9, 3.5853523370670123`*^9}, {
   3.5853524453971643`*^9, 3.5853524453971643`*^9}, 3.5861901487730455`*^9, {
   3.5861908854340773`*^9, 3.5861908854340773`*^9}, {3.586194076809165*^9, 
   3.5861940770291653`*^9}, 3.5861941184592257`*^9, {3.5861941532917776`*^9, 
   3.58619418231432*^9}, {3.586202313133654*^9, 3.5862023177236605`*^9}, 
   3.586288566680663*^9, {3.5862896536922264`*^9, 3.5862896538422265`*^9}, {
   3.5864006838912168`*^9, 3.5864006893824263`*^9}, {3.586401728765452*^9, 
   3.586401734475062*^9}, 3.586401976369087*^9, 3.5864611109004707`*^9, {
   3.586461147560522*^9, 3.586461170350554*^9}, {3.6200067509666376`*^9, 
   3.62000675798665*^9}, {3.6200068591372275`*^9, 3.6200068646128373`*^9}, 
   3.620014124483536*^9, {3.620016771655946*^9, 3.6200168087250657`*^9}, 
   3.62001737683356*^9, 3.6219773123169355`*^9, 3.6219777979447117`*^9, {
   3.6219781402972937`*^9, 3.6219781402972937`*^9}, 3.6219788088315315`*^9, 
   3.622416561917349*^9, 3.6224204154207563`*^9, 3.7177361702996826`*^9, {
   3.7177368110663323`*^9, 3.7177368110663323`*^9}, 3.7179747172990475`*^9, 
   3.717974788944145*^9, 3.7179753303261104`*^9, {3.7179754143449163`*^9, 
   3.7179754143449163`*^9}, {3.717977146141969*^9, 3.7179771560305347`*^9}, 
   3.717979837708918*^9, {3.7179804539541655`*^9, 3.717980457251354*^9}, {
   3.7228075475733676`*^9, 3.7228075981322594`*^9}, {3.722808747797016*^9, 
   3.7228087483350472`*^9}, {3.722808887215991*^9, 3.7228088896951323`*^9}, {
   3.722810436576609*^9, 3.7228104508694267`*^9}, 3.7461204298770747`*^9},
 FontSize->12,
 FontWeight->"Bold"],

Cell["Derivation: Piecewise constant extraction", "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, 3.494172818179343*^9, {3.586461195350589*^9, 
   3.586461209440609*^9}}],

Cell[TextData[{
 "Basis: ",
 Cell[BoxData[
  RowBox[{
   RowBox[{
    SubscriptBox["\[PartialD]", "x"], 
    FractionBox[
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"d", " ", 
        SuperscriptBox["x", "q"]}], ")"}], "m"], 
     SuperscriptBox["x", 
      RowBox[{"m", " ", "q"}]]]}], "\[Equal]", "0"}]]]
}], "Subsubsection",
 CellChangeTimes->{
  3.4941724567488375`*^9, {3.494172818179343*^9, 3.494172835289367*^9}, 
   3.4941728817394323`*^9, {3.4941732517099504`*^9, 3.4941732592199607`*^9}, {
   3.4941867403328547`*^9, 3.494186750597673*^9}, {3.494188482910461*^9, 
   3.494188485702866*^9}, 3.494188591549052*^9, {3.49418864176554*^9, 
   3.49418864750635*^9}, {3.4941887057880526`*^9, 3.494188733883702*^9}, {
   3.494189069767892*^9, 3.4941891152419715`*^9}, {3.494198042823061*^9, 
   3.494198045428265*^9}, {3.494198409922906*^9, 3.4941984537277822`*^9}, 
   3.494198500746265*^9, {3.494198552556757*^9, 3.4941985875008183`*^9}, {
   3.4941986433645163`*^9, 3.4941986981050124`*^9}, {3.494198728727866*^9, 
   3.4941987591167192`*^9}, {3.5537064027639275`*^9, 
   3.5537064046439295`*^9}, {3.554908854828027*^9, 3.554908868042783*^9}, {
   3.5549109334971294`*^9, 3.5549109334971294`*^9}, {3.5549110429772825`*^9, 
   3.5549110441072845`*^9}, {3.5549110833573394`*^9, 
   3.5549111307074056`*^9}, {3.5549112286175427`*^9, 3.554911238587557*^9}, {
   3.554911286387624*^9, 3.5549112873876247`*^9}, {3.5549113838077602`*^9, 
   3.5549114191978097`*^9}, {3.5549115160579453`*^9, 3.554911528097962*^9}, {
   3.554911828468383*^9, 3.5549118320683875`*^9}, {3.5549119348885317`*^9, 
   3.5549119841686*^9}, {3.5549120405586796`*^9, 3.5549120483786907`*^9}, {
   3.5549121415488205`*^9, 3.5549121415488205`*^9}, {3.554912225098938*^9, 
   3.554912225098938*^9}, {3.5549123761691494`*^9, 3.5549123761691494`*^9}, {
   3.5549125249193573`*^9, 3.5549125249193573`*^9}, {3.5549142618417892`*^9, 
   3.5549142792618136`*^9}, {3.55491571956383*^9, 3.5549157212938323`*^9}, {
   3.554915859274026*^9, 3.554915859274026*^9}, {3.554915945724147*^9, 
   3.5549159712741823`*^9}, {3.5853384454645286`*^9, 
   3.5853384579245462`*^9}, {3.5853498590610433`*^9, 
   3.5853498590810432`*^9}, {3.5853508170323844`*^9, 
   3.5853508170323844`*^9}, {3.5853521853868*^9, 3.5853521853868*^9}, {
   3.5853529303178425`*^9, 3.5853529303178425`*^9}, {3.5853542331896667`*^9, 
   3.5853542352296696`*^9}, {3.5861901487830453`*^9, 
   3.5861901488030453`*^9}, {3.5861908863940787`*^9, 
   3.5861908863940787`*^9}, {3.5861941184792256`*^9, 
   3.5861941184792256`*^9}, {3.586194358819577*^9, 3.586194358819577*^9}, {
   3.5862016958877897`*^9, 3.5862017000477953`*^9}, {3.5862018028929396`*^9, 
   3.58620182493297*^9}, {3.5862018838730526`*^9, 3.5862018838730526`*^9}, {
   3.5862019758631816`*^9, 3.5862019758631816`*^9}, {3.5862020312832594`*^9, 
   3.58620203177326*^9}, {3.5862021078133664`*^9, 3.586202109483369*^9}, {
   3.5864007165732746`*^9, 3.5864007165732746`*^9}, {3.586400813792645*^9, 
   3.586400882807166*^9}, {3.586461221190625*^9, 3.586461221190625*^9}, {
   3.586461424140909*^9, 3.586461424140909*^9}, {3.62001695355435*^9, 
   3.6200169685462074`*^9}, {3.6219777988727655`*^9, 
   3.6219777988727655`*^9}, {3.6219781691999464`*^9, 
   3.6219781691999464`*^9}, {3.7177371909990635`*^9, 
   3.7177371909990635`*^9}, {3.7179753309401455`*^9, 
   3.7179753309401455`*^9}, {3.7179754155179834`*^9, 
   3.7179754155179834`*^9}, {3.7179754596145053`*^9, 
   3.7179754596145053`*^9}, {3.7179772650867724`*^9, 
   3.7179772650877724`*^9}, {3.722807610714979*^9, 3.7228076251178026`*^9}, {
   3.7228076633679905`*^9, 3.7228076633679905`*^9}, {3.7228089772671413`*^9, 
   3.7228089794132643`*^9}, {3.7228106376561103`*^9, 3.7228106376561103`*^9}}],

Cell["Rule:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.48070534977779*^9, {3.4928296953212276`*^9, 3.492829707041244*^9}, 
   3.4941724084687696`*^9, 3.4941724567488375`*^9, {3.4941737492506466`*^9, 
   3.4941737506706486`*^9}, {3.494173966810951*^9, 3.494174007671008*^9}, {
   3.4941741326011834`*^9, 3.4941741425911975`*^9}, {3.4941767936905165`*^9, 
   3.494176809630539*^9}, {3.4941773316412697`*^9, 3.494177333751273*^9}, {
   3.4941891756608777`*^9, 3.494189178765283*^9}, {3.494196711119521*^9, 
   3.4941967113535213`*^9}, {3.4941972738717093`*^9, 
   3.4941972799089203`*^9}, {3.49420053403185*^9, 3.494200549361871*^9}, {
   3.5549127564596815`*^9, 3.5549127564596815`*^9}, {3.554913675900969*^9, 
   3.554913675900969*^9}, {3.554916014344243*^9, 3.5549160145642433`*^9}, {
   3.5549256011256714`*^9, 3.5549256025256734`*^9}, {3.554927024457664*^9, 
   3.554927024457664*^9}, {3.5853384776645737`*^9, 3.5853384776645737`*^9}, {
   3.585352337077012*^9, 3.585352337077012*^9}, {3.5853524453971643`*^9, 
   3.5853524453971643`*^9}, {3.58619088728408*^9, 3.58619088728408*^9}, {
   3.5861941533017774`*^9, 3.58619418232432*^9}, {3.5862023214736657`*^9, 
   3.586202321633666*^9}, {3.586461191960584*^9, 3.586461191960584*^9}, {
   3.6200068760788574`*^9, 3.6200068760788574`*^9}, {3.6200168202217236`*^9, 
   3.6200168202217236`*^9}, {3.6219781422504053`*^9, 
   3.6219781422504053`*^9}, {3.7177368133284616`*^9, 
   3.7177368133284616`*^9}, {3.717975418873175*^9, 3.717975418874175*^9}, {
   3.7179771602057734`*^9, 3.7179771602057734`*^9}, {3.717980467513941*^9, 
   3.717980467513941*^9}, {3.7228076848922215`*^9, 3.722807685124235*^9}}],

Cell[BoxData[
 RowBox[{"\[Integral]", 
  RowBox[{
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"d", " ", 
      SuperscriptBox["x", "q"]}], ")"}], "m"], " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{"a", "+", 
      RowBox[{"b", " ", 
       RowBox[{"Log", "[", 
        RowBox[{"c", " ", 
         SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
   RowBox[{"\[DifferentialD]", 
    RowBox[{"x", "  ", "\[LongRightArrow]", "  ", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{"d", " ", 
         SuperscriptBox["x", "q"]}], ")"}], "m"], 
      SuperscriptBox["x", 
       RowBox[{"m", " ", "q"}]]]}]}], " ", 
   RowBox[{"\[Integral]", 
    RowBox[{
     SuperscriptBox["x", 
      RowBox[{"m", " ", "q"}]], " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{"a", "+", 
        RowBox[{"b", " ", 
         RowBox[{"Log", "[", 
          RowBox[{"c", " ", 
           SuperscriptBox["x", "n"]}], "]"}]}]}], ")"}], "p"], 
     RowBox[{"\[DifferentialD]", "x"}]}]}]}]}]], "Subsubtitle",
 CellDingbat->None,
 CellChangeTimes->{{3.4796579732027807`*^9, 3.479658002474872*^9}, {
   3.4796580599975853`*^9, 3.4796580609489536`*^9}, {3.479658295195784*^9, 
   3.47965829684816*^9}, 3.4796611938939075`*^9, 3.4796613924794593`*^9, {
   3.479661443342597*^9, 3.479661446647349*^9}, {3.479661576554146*^9, 
   3.479661589302477*^9}, 3.479661847553824*^9, {3.4796622294729967`*^9, 
   3.4796622450654173`*^9}, {3.479686720424531*^9, 3.4796867204345455`*^9}, {
   3.4796874646646957`*^9, 3.4796874745589232`*^9}, {3.492826573513727*^9, 
   3.492826578630536*^9}, {3.4928267070863624`*^9, 3.492826707460763*^9}, 
   3.4928267903497095`*^9, {3.492829799151373*^9, 3.4928299617216005`*^9}, {
   3.4940972077187414`*^9, 3.4940972347887793`*^9}, {3.49409966398218*^9, 
   3.494099664952181*^9}, {3.4940997156722527`*^9, 3.494099716112253*^9}, 
   3.4941724567488375`*^9, {3.4941727384192314`*^9, 3.494172760679263*^9}, {
   3.4941763955899596`*^9, 3.4941764290900064`*^9}, {3.4941764605500507`*^9, 
   3.4941764930400963`*^9}, 3.4941770641708956`*^9, 3.494177118590972*^9, {
   3.4941890257602143`*^9, 3.4941890417814426`*^9}, {3.494189320351132*^9, 
   3.4941893689764175`*^9}, {3.4941960634447823`*^9, 3.494196109948464*^9}, {
   3.494196492625537*^9, 3.4941965253075943`*^9}, {3.4941967717568274`*^9, 
   3.4941967891820583`*^9}, {3.494198824027233*^9, 3.4941988799065313`*^9}, {
   3.5549115691980195`*^9, 3.5549115968580585`*^9}, {3.554912582239438*^9, 
   3.5549126668695564`*^9}, 3.5549143340718904`*^9, 3.554915363633332*^9, {
   3.5549160241442566`*^9, 3.5549160479042897`*^9}, {3.5853384480945325`*^9, 
   3.5853384610045505`*^9}, {3.5853498590910435`*^9, 3.5853498590910435`*^9}, 
   3.585350817042384*^9, 3.5853521853968*^9, 3.5853529303278427`*^9, {
   3.585354238209674*^9, 3.585354240279677*^9}, {3.5861901488130455`*^9, 
   3.5861901488130455`*^9}, 3.586190888104081*^9, 3.5861941184992256`*^9, 
   3.5861943588495774`*^9, {3.5862018865830564`*^9, 3.586201902763079*^9}, {
   3.5862020968933516`*^9, 3.5862021299133973`*^9}, {3.586400956080495*^9, 
   3.5864009763761306`*^9}, {3.5864614524109488`*^9, 3.586461466790969*^9}, {
   3.6200067649442625`*^9, 3.6200067764258823`*^9}, {3.6200141269256754`*^9, 
   3.6200141305588837`*^9}, {3.6200168382997575`*^9, 3.6200168467842426`*^9}, 
   3.620016894515973*^9, {3.6200169292639604`*^9, 3.620016946552949*^9}, 
   3.6200170135917835`*^9, {3.6219777999798284`*^9, 3.621977820956028*^9}, {
   3.6219781977015767`*^9, 3.6219781998907022`*^9}, 3.7177361710547256`*^9, {
   3.7177368286903405`*^9, 3.7177368472204003`*^9}, 3.7179747898281956`*^9, 
   3.717975152108917*^9, {3.7179753316891885`*^9, 3.717975332297223*^9}, {
   3.717975419809229*^9, 3.717975421041299*^9}, {3.7179754641937675`*^9, 
   3.7179754674499536`*^9}, {3.717977205931389*^9, 3.717977249849901*^9}, {
   3.717977279994625*^9, 3.717977290450223*^9}, 3.7179773870617495`*^9, {
   3.722807691992628*^9, 3.7228077318279066`*^9}, {3.722808980454324*^9, 
   3.7228089826784506`*^9}, {3.7228105612427397`*^9, 3.722810588655308*^9}},
 TextAlignment->Center,
 FontSize->12,
 FontWeight->"Bold"],

Cell["Program code:", "Subsubsection",
 CellDingbat->"\[FilledSmallSquare]",
 CellChangeTimes->{{3.4794189093216*^9, 3.479418932274605*^9}, {
   3.479418981395237*^9, 3.4794189822564754`*^9}, {3.4794192068193808`*^9, 
   3.4794192077607346`*^9}, 3.479420089138093*^9, {3.479420130978256*^9, 
   3.4794201410627565`*^9}, {3.479420560345656*^9, 3.479420578171288*^9}, {
   3.479420683943381*^9, 3.4794206847645617`*^9}, {3.4794210347678413`*^9, 
   3.4794210503903055`*^9}, 3.4803613662913427`*^9, {3.480361406058525*^9, 
   3.48036141974821*^9}, {3.4803614672865667`*^9, 3.480361474717252*^9}, 
   3.4807050675119123`*^9, {3.492804314166378*^9, 3.4928043441496305`*^9}, {
   3.4928044532166224`*^9, 3.492804453513023*^9}, {3.492805162266266*^9, 
   3.492805165713872*^9}, 3.4941724567488375`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d_.", "*", 
        RowBox[{"x_", "^", "q_"}]}], ")"}], "^", "m_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d", "*", 
        RowBox[{"x", "^", "q"}]}], ")"}], "^", "m"}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{"m", "*", "q"}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", 
        RowBox[{"(", 
         RowBox[{"m", "*", "q"}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d", ",", "m", ",", "n", ",", "p", ",", 
       "q"}], "}"}], ",", "x"}], "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, {
   3.4941763709899254`*^9, 3.49417638178994*^9}, 3.494176933060712*^9, {
   3.4941891975165157`*^9, 3.494189292692283*^9}, 3.4941894111744914`*^9, {
   3.4941961386609154`*^9, 3.494196199048621*^9}, 3.4941962310130777`*^9, {
   3.494196685551076*^9, 3.494196749355188*^9}, {3.494196855996975*^9, 
   3.494196887758631*^9}, {3.494197244138057*^9, 3.494197246946062*^9}, {
   3.494197819524268*^9, 3.4941978307718887`*^9}, {3.4941989675474854`*^9, 
   3.4941989999331427`*^9}, {3.494200557901883*^9, 3.4942005644018917`*^9}, {
   3.553560008788453*^9, 3.5535600110784564`*^9}, {3.554912771049702*^9, 
   3.554912814569763*^9}, 3.554912888029866*^9, {3.554914370231941*^9, 
   3.5549144440720444`*^9}, {3.554916117044387*^9, 3.5549161457444267`*^9}, 
   3.554916356744722*^9, 3.5549256080256815`*^9, 3.554925862386037*^9, {
   3.554927032967676*^9, 3.5549270480976973`*^9}, 3.5550343547246666`*^9, 
   3.5853382160542073`*^9, {3.58533824622425*^9, 3.585338271634285*^9}, 
   3.5853498823310757`*^9, 3.585350108201392*^9, 3.585350151951453*^9, 
   3.585350890542487*^9, 3.5853512826330357`*^9, {3.5853524913872285`*^9, 
   3.585352543447301*^9}, {3.5853528683177557`*^9, 3.5853528699877586`*^9}, 
   3.586190227923156*^9, 3.586190277143225*^9, {3.5861908932540884`*^9, 
   3.5861908942240896`*^9}, {3.5861942512619205`*^9, 
   3.5861942693544464`*^9}, {3.5861942995969915`*^9, 
   3.5861943156645145`*^9}, {3.586202154703432*^9, 3.5862021885034795`*^9}, 
   3.5862023251236706`*^9, 3.586284151111351*^9, 3.586288669515811*^9, {
   3.586401022287011*^9, 3.5864010549534683`*^9}, {3.586401168256468*^9, 
   3.5864011714388733`*^9}, 3.5864027065027695`*^9, 3.586461544070281*^9, {
   3.5864615980753593`*^9, 3.586461615480384*^9}, 3.587423393881688*^9, {
   3.6200069164985285`*^9, 3.6200069500541873`*^9}, {3.6200069802090406`*^9, 
   3.6200069804118404`*^9}, {3.620014145654747*^9, 3.620014174698408*^9}, 
   3.6200170582103357`*^9, {3.620017099953723*^9, 3.620017136699825*^9}, {
   3.621978219491823*^9, 3.6219782681706076`*^9}, 3.6219783047116976`*^9, {
   3.7151246223344154`*^9, 3.7151246248575306`*^9}, {3.717736865970473*^9, 
   3.7177369502912955`*^9}, 3.7177389637424583`*^9, 3.717974935206511*^9, 
   3.7179749822172*^9, {3.7179751894460526`*^9, 3.7179751901490927`*^9}, {
   3.7179753742836246`*^9, 3.7179753766197586`*^9}, {3.717975422062358*^9, 
   3.7179754255025544`*^9}, {3.717975473031273*^9, 3.7179754787506*^9}, 
   3.717977413245247*^9, {3.717977469573468*^9, 3.7179774826162148`*^9}, 
   3.71798047484236*^9, {3.722807770403113*^9, 3.7228077857709913`*^9}, {
   3.722807867620673*^9, 3.7228079023136578`*^9}, {3.7228089842795424`*^9, 
   3.7228089964622393`*^9}, {3.7228106589223266`*^9, 3.722810694017334*^9}},
 Background->GrayLevel[0.85]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Int", "[", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d1_.", "*", 
        RowBox[{"x_", "^", "q1_"}]}], ")"}], "^", "m1_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d2_.", "*", 
        RowBox[{"x_", "^", "q2_"}]}], ")"}], "^", "m2_"}], "*", 
     RowBox[{
      RowBox[{"(", 
       RowBox[{"a_.", "+", 
        RowBox[{"b_.", "*", 
         RowBox[{"Log", "[", 
          RowBox[{"c_.", "*", 
           RowBox[{"x_", "^", "n_."}]}], "]"}]}]}], ")"}], "^", "p_."}]}], 
    ",", "x_Symbol"}], "]"}], " ", ":=", "\n", "  ", 
  RowBox[{
   RowBox[{
    RowBox[{
     RowBox[{"(", 
      RowBox[{"d1", "*", 
       RowBox[{"x", "^", "q1"}]}], ")"}], "^", "m1"}], "*", 
    RowBox[{
     RowBox[{
      RowBox[{"(", 
       RowBox[{"d2", "*", 
        RowBox[{"x", "^", "q2"}]}], ")"}], "^", "m2"}], "/", 
     RowBox[{"x", "^", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"m1", "*", "q1"}], "+", 
        RowBox[{"m2", "*", "q2"}]}], ")"}]}]}], "*", 
    RowBox[{"Int", "[", 
     RowBox[{
      RowBox[{
       RowBox[{"x", "^", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"m1", "*", "q1"}], "+", 
          RowBox[{"m2", "*", "q2"}]}], ")"}]}], "*", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"a", "+", 
          RowBox[{"b", "*", 
           RowBox[{"Log", "[", 
            RowBox[{"c", "*", 
             RowBox[{"x", "^", "n"}]}], "]"}]}]}], ")"}], "^", "p"}]}], ",", 
      "x"}], "]"}]}], " ", "/;", "\n", 
   RowBox[{"FreeQ", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
      "a", ",", "b", ",", "c", ",", "d1", ",", "d2", ",", "m1", ",", "m2", 
       ",", "n", ",", "p", ",", "q1", ",", "q2"}], "}"}], ",", "x"}], 
    "]"}]}]}]], "Code",
 CellChangeTimes->{{3.494097279728842*^9, 3.494097309778884*^9}, {
   3.494099665582182*^9, 3.4940996672021847`*^9}, {3.4940997193022575`*^9, 
   3.494099719662258*^9}, 3.4941724567488375`*^9, 3.494172717389202*^9, {
   3.4941763709899254`*^9, 3.49417638178994*^9}, 3.494176933060712*^9, {
   3.4941891975165157`*^9, 3.494189292692283*^9}, 3.4941894111744914`*^9, {
   3.4941961386609154`*^9, 3.494196199048621*^9}, 3.4941962310130777`*^9, {
   3.494196685551076*^9, 3.494196749355188*^9}, {3.494196855996975*^9, 
   3.494196887758631*^9}, {3.494197244138057*^9, 3.494197246946062*^9}, {
   3.494197819524268*^9, 3.4941978307718887`*^9}, {3.4941989675474854`*^9, 
   3.4941989999331427`*^9}, {3.494200557901883*^9, 3.4942005644018917`*^9}, {
   3.553560008788453*^9, 3.5535600110784564`*^9}, {3.554912771049702*^9, 
   3.554912814569763*^9}, 3.554912888029866*^9, {3.554914370231941*^9, 
   3.5549144440720444`*^9}, {3.554916117044387*^9, 3.5549161457444267`*^9}, 
   3.554916356744722*^9, 3.5549256080256815`*^9, 3.554925862386037*^9, {
   3.554927032967676*^9, 3.5549270480976973`*^9}, 3.5550343547246666`*^9, 
   3.5853382160542073`*^9, {3.58533824622425*^9, 3.585338271634285*^9}, 
   3.5853498823310757`*^9, 3.585350108201392*^9, 3.585350151951453*^9, 
   3.585350890542487*^9, 3.5853512826330357`*^9, {3.5853524913872285`*^9, 
   3.585352543447301*^9}, {3.5853528683177557`*^9, 3.5853528699877586`*^9}, 
   3.586190227923156*^9, 3.586190277143225*^9, {3.5861908932540884`*^9, 
   3.5861908942240896`*^9}, {3.5861942512619205`*^9, 
   3.5861942693544464`*^9}, {3.5861942995969915`*^9, 
   3.5861943156645145`*^9}, {3.586202154703432*^9, 3.5862021885034795`*^9}, 
   3.5862023251236706`*^9, 3.586284151111351*^9, 3.586288669515811*^9, {
   3.586401022287011*^9, 3.5864010549534683`*^9}, {3.586401168256468*^9, 
   3.5864011714388733`*^9}, 3.5864027065027695`*^9, 3.586461544070281*^9, {
   3.5864615980753593`*^9, 3.586461615480384*^9}, 3.587423393881688*^9, {
   3.6200069164985285`*^9, 3.6200069500541873`*^9}, {3.6200069802090406`*^9, 
   3.6200069804118404`*^9}, {3.620014145654747*^9, 3.620014174698408*^9}, 
   3.6200170582103357`*^9, {3.620017099953723*^9, 3.620017136699825*^9}, {
   3.621978219491823*^9, 3.6219782681706076`*^9}, 3.6219783047116976`*^9, {
   3.7151246223344154`*^9, 3.7151246248575306`*^9}, {3.717736865970473*^9, 
   3.7177369502912955`*^9}, 3.7177389637424583`*^9, 3.717974935206511*^9, 
   3.7179749822172*^9, {3.7179751894460526`*^9, 3.7179751901490927`*^9}, {
   3.7179753742836246`*^9, 3.7179753766197586`*^9}, {3.717975422062358*^9, 
   3.7179754255025544`*^9}, {3.717975473031273*^9, 3.7179754787506*^9}, 
   3.717977413245247*^9, {3.717977469573468*^9, 3.7179774826162148`*^9}, 
   3.71798047484236*^9, {3.722807770403113*^9, 3.7228077857709913`*^9}, {
   3.722807867620673*^9, 3.7228079023136578`*^9}, {3.7228089842795424`*^9, 
   3.7228089964622393`*^9}, {3.7228106589223266`*^9, 3.7228108629189944`*^9}},
 Background->GrayLevel[0.85]],

Cell["", "Subsubsection",
 CellDingbat->None,
 CellChangeTimes->{3.4796643211106243`*^9, 3.4941724567488375`*^9}]
}, Closed]]
},
AutoGeneratedPackage->Automatic,
CellGrouping->Manual,
WindowSize->{1908, 946},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingStartingPageNumber->1,
PrintingPageRange->{1, 32000},
PageHeaders->{{
   Cell[
    TextData[{
      StyleBox[
       CounterBox["Page"], "PageNumber"], " ", "|", " ", 
      StyleBox[
       ValueBox["FileName"], "Header"]}], "Header", 
    CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, None}, {
   Cell[
    TextData[{
     "Rules", " ", "for", " ", "integrands", " ", "of", " ", "the", " ", 
      "form", " ", "(", "d", " ", "x", ")", "^", "m", " ", "(", "a", "+", "b",
       " ", "log", "(", "c", " ", "x", "^", "n", ")", ")", "^", "p"}], 
    "Header", CellMargins -> {{0, Inherited}, {Inherited, Inherited}}], None, 
   Cell[
    TextData[
     CounterBox["Page", CounterFunction :> Identity]], "Header", 
    CellMargins -> {{Inherited, 0}, {Inherited, Inherited}}]}},
PageFooters->{{None, None, None}, {None, None, None}},
PageHeaderLines->{False, False},
PageFooterLines->{False, False},
PrintingOptions->{"FacingPages"->False,
"FirstPageFace"->Right,
"FirstPageFooter"->False,
"FirstPageHeader"->False,
"Magnification"->1.,
"PaperOrientation"->"Landscape",
"PaperSize"->{774, 597},
"PrintCellBrackets"->False,
"PrintMultipleHorizontalPages"->False,
"PrintRegistrationMarks"->False,
"PrintingMargins"->{{28.8, 41.976}, {28.8, 28.8}}},
ShowSelection->True,
Magnification->1.399999976158142,
FrontEndVersion->"8.0 for Microsoft Windows (64-bit) (October 6, 2011)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[545, 20, 6129, 98, 42, "Subsubtitle"],
Cell[CellGroupData[{
Cell[6699, 122, 5366, 82, 65, "Subsubtitle"],
Cell[12068, 206, 549, 8, 45843916, "Subsubsection"],
Cell[12620, 216, 478, 7, 31419212, "Subsubsection"],
Cell[13101, 225, 1667, 42, 58258250, "Subsubsection"],
Cell[14771, 269, 1257, 17, 31419212, "Subsubsection"],
Cell[16031, 288, 3266, 61, 88774870, "Subsubtitle"],
Cell[19300, 351, 795, 11, 45843916, "Subsubsection"],
Cell[20098, 364, 2201, 47, 140248863, "Code"],
Cell[22302, 413, 2370, 52, 154281531, "Code"],
Cell[24675, 467, 113, 2, 45843916, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[24825, 474, 3831, 69, 53, "Subsubtitle"],
Cell[CellGroupData[{
Cell[28681, 547, 6549, 109, 53, "Subsubtitle"],
Cell[35233, 658, 1646, 24, 89854071, "Subsubsection"],
Cell[36882, 684, 1587, 26, 66178929, "Subsubsection"],
Cell[38472, 712, 2922, 57, 178667168, "Subsubtitle"],
Cell[41397, 771, 795, 11, 89854071, "Subsubsection"],
Cell[42195, 784, 2924, 67, 274887760, "Code"],
Cell[45122, 853, 113, 2, 89854071, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[45272, 860, 6286, 102, 53, "Subsubtitle"],
Cell[51561, 964, 477, 7, 64181481, "Subsubsection"],
Cell[52041, 973, 396, 6, 43986896, "Subsubsection"],
Cell[52440, 981, 2334, 46, 82888180, "Subsubsection"],
Cell[54777, 1029, 1603, 28, 47270665, "Subsubsection"],
Cell[56383, 1059, 3439, 78, 127619408, "Subsubtitle"],
Cell[59825, 1139, 795, 11, 64181481, "Subsubsection"],
Cell[60623, 1152, 3085, 76, 196348404, "Code"],
Cell[63711, 1230, 3375, 85, 215994139, "Code"],
Cell[67089, 1317, 113, 2, 64181481, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[67251, 1325, 6360, 103, 53, "Subsubtitle"],
Cell[73614, 1430, 489, 7, 2147483647, "Subsubsection"],
Cell[74106, 1439, 427, 6, 2147483647, "Subsubsection"],
Cell[74536, 1447, 1669, 29, 2147483647, "Subsubsection"],
Cell[76208, 1478, 3551, 81, 2147483647, "Subsubtitle"],
Cell[79762, 1561, 795, 11, 2147483647, "Subsubsection"],
Cell[80560, 1574, 3415, 90, 2147483647, "Code"],
Cell[83978, 1666, 113, 2, 2147483647, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[84128, 1673, 3625, 64, 69, "Subsubtitle"],
Cell[CellGroupData[{
Cell[87778, 1741, 5587, 89, 69, "Subsubtitle"],
Cell[93368, 1832, 477, 7, 2147483647, "Subsubsection"],
Cell[93848, 1841, 2083, 34, 2147483647, "Subsubsection"],
Cell[95934, 1877, 1691, 28, 2147483647, "Subsubsection"],
Cell[97628, 1907, 3040, 55, 2147483647, "Subsubtitle"],
Cell[100671, 1964, 795, 11, 2147483647, "Subsubsection"],
Cell[101469, 1977, 2161, 47, 2147483647, "Code"],
Cell[103633, 2026, 113, 2, 2147483647, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[103783, 2033, 5691, 91, 69, "Subsubtitle"],
Cell[109477, 2126, 525, 7, 2147483647, "Subsubsection"],
Cell[110005, 2135, 1691, 28, 2147483647, "Subsubsection"],
Cell[111699, 2165, 3207, 60, 2147483647, "Subsubtitle"],
Cell[114909, 2227, 795, 11, 2147483647, "Subsubsection"],
Cell[115707, 2240, 2341, 54, 2147483647, "Code"],
Cell[118051, 2296, 113, 2, 2147483647, "Subsubsection"]
}, Closed]]
}, Closed]],
Cell[CellGroupData[{
Cell[118213, 2304, 5745, 91, 53, "Subsubtitle"],
Cell[123961, 2397, 484, 9, 2147483647, "Subsubsection"],
Cell[124448, 2408, 1707, 44, 2147483647, "Subsubsection"],
Cell[126158, 2454, 1637, 26, 2147483647, "Subsubsection"],
Cell[127798, 2482, 3393, 65, 2147483647, "Subsubtitle"],
Cell[131194, 2549, 795, 11, 2147483647, "Subsubsection"],
Cell[131992, 2562, 2560, 60, 2147483647, "Code"],
Cell[134555, 2624, 113, 2, 2147483647, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[134705, 2631, 5523, 86, 53, "Subsubtitle"],
Cell[140231, 2719, 468, 8, 2147483647, "Subsubsection"],
Cell[140702, 2729, 991, 25, 2147483647, "Subsubsection"],
Cell[141696, 2756, 1564, 40, 2147483647, "Subsubsection"],
Cell[143263, 2798, 1257, 17, 2147483647, "Subsubsection"],
Cell[144523, 2817, 4672, 108, 2147483647, "Subsubtitle"],
Cell[149198, 2927, 795, 11, 2147483647, "Subsubsection"],
Cell[149996, 2940, 2949, 77, 2147483647, "Code"],
Cell[152948, 3019, 113, 2, 2147483647, "Subsubsection"]
}, Closed]],
Cell[CellGroupData[{
Cell[153098, 3026, 7711, 115, 53, "Subsubtitle"],
Cell[160812, 3143, 185, 3, 35, "Subsubsection"],
Cell[161000, 3148, 3751, 63, 43, "Subsubsection"],
Cell[164754, 3213, 2184, 30, 25, "Subsubsection"],
Cell[166941, 3245, 4158, 78, 65, "Subsubtitle"],
Cell[171102, 3325, 795, 11, 35, "Subsubsection"],
Cell[171900, 3338, 4332, 87, 104, "Code"],
Cell[176235, 3427, 4756, 100, 114, "Code"],
Cell[180994, 3529, 113, 2, 35, "Subsubsection"]
}, Closed]]
}
]
*)

(* End of internal cache information *)